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ABSTRACT 



Retention policy for U.S. Navy wholesale inventories in long 
supply has been in a state of flux and under Congressional scrutiny 
since 1985. This thesis analyzes and compares the U.S. Navy’s 
current economic retention process to four mathematical Economic 
Retention Decision Models designed to assist in making retention 
determinations with respect to excess inventories. The motivation 
for this research was based on several factors, the two primary 
factors were; the Navy does not currently use a classical economic 
retention decision model when making retention/disposal decisions 
for "essential" material, and U.S. Navy inventories in long supply 
were estimated to be as high as 3 . 4 billion dollars in March 1993. 
A Pascal based simulation was developed to compare the Navy's 
retention process and the mathematical models. The comparison was 
based on performance with respect to the Measures Of Effectiveness 
(MOE) of Total Cost and Average Customer Wait Time. The simulation 
was designed to emulate the portions of the Navy's consumable item 
inventory management system (UICP) applicable to the demand process 
for a Navy managed consumable item. The goal of this research was 
to determine how effective the Navy's retention process was as 
compared with economic retention decision models for both a steady 
state and a declining demand environment. In general, results 
showed that at least one mathematical model performed better than 
the Navy's process for all demand scenarios that were simulated and 
that the ideal model varies between demand scenarios and changes in 
decision maker's emphasis on the MOEs . 
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THESIS DISCLAIMER 

The reader is cautioned that computer programs developed in 
this research may not have been exercised for all cases of I 
interest. While every effort has been made, within the time 
available, to ensure that the programs are free of 
computational and logic errors, they cannot be considered 
validated. Any application of these programs without 
additional verification is at the risk of the user. 
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EXECUTIVE SUMMARY 



OVERVIEW : Retention and disposal policy for U. S. Navy 

wholesale inventories in long supply has been in a state of 
flux and under congressional scrutiny since 1985. Coininents 
from the Chief of the Supply Corps on 19 July 1993 indicated 
that one of the preeminent issues regarding the future of the 
Supply Corps was inventory reduction. He stated that 
inventory reduction is "a congressionally mandated process and 
a fiscal necessity .... we must continue to aggressively 
pursue inventory reductions in an intelligent manner", and 
that it "demands our immediate and continuous attention."' 

An important aspect of inventory reduction is the 
retention/disposal process for excess material. This thesis 
evaluated the effectiveness of the Navy's UICP economic 
retention model. The evaluation was performed by comparing 
several mathematical economic retention models with the Navy's 
existing retention model. 

There were three primary factors that motivated this 
thesis. First, the Navy Inventory Control Points (ICP) are 
not confident that eight years worth of forecasted annual 
demand is an appropriate inventory retention level. Second, 

with continued budget reductions and reductions in the size of 

^ 

'Naval Supply Systems Command, Subject: Naval Supply 

Corps FLASH from the Chief, No. 7-93, 19 July 1993. 

viii 



the Fleet, excess inventories will continue to be a financial 
and administrative burden. For example, as of March 1993 the 
Navy held $1.9 billion in Economic Retention Stock- and $1.5 
billion in potential excess inventory for IH, 3H and 7 COG- 
material. Finally, DOD Regulation 4140. 1-R recommends that 
better analysis supporting retention decisions be done through 
the use of economic retention decision models. The Navy does 
not currently use a classical economic retention decision 
model when making retention and disposal decisions for 
"essential" material. 

ANALYSIS : An analysis of the models was performed for a 
variety of demand scenarios in both steady state and declining 
demand situations. The analysis was designed with two 
objectives in mind. The first objective was to determine 
which model (s) were most effective in a demand environment 
similar to the Navy’s stochastic demand environment. The 
second objective was to evaluate how the Navy's retention 
process performed with respect to the mathematical models. 

A discrete event Monte Carlo simulation of the Navy's UICP 
demand process and the mathematical retention models was 
developed to evaluate the performance of the models. The 

^Economic Retention Stock (ERS) is that material which is 
more economical to hold for future requirements as opposed to 
disposing and reprocuring in the future. 

^Cognizant symbols (COG) are two character alpha-numeric 
codes which identify and designate cognizant inventory 
managers who exercise supply management over a specific 
category of material. 
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simulation was developed by the author and LT Glenn 
Robillard', and was designed to emulate the portions of the 
Navy's Uniform Inventory Control Program (UICP) applicable to 
this research. The simulation represents the demand process 
of a hypothetical Navy managed consumable item. The 
evaluation of the models' performance was based on the 
measures of effectiveness (MOE) of total cost (TC) over a 
specified period of simulation time and average customer wait 
time (ACWT) per requisition for all requisitions which occur 
over a specified period of simulation time. 

The mathematical models chosen for this research were 
based on their applicability to the Navy's excess inventory 
problem and the simulation. The mathematical models chosen 
were Simpson's "Economic Retention Period Formula", Tersine 
and Toelle's simple "Net Benefit" model and present value "Net 
Benefit" model, and the simple "Net Benefit" model modified to 
account for the potential for stockouts associated with Navy 
managed items. 

The analysis and performance comparisons of the models 
were based on MOEs calculated from output data from the 
simulation for six basic demand scenarios. The demand 
scenarios were based on varying combinations of unit price, 
mean quarterly demand and variance of mean quarterly demand. 



‘LT Robillard is a U.S. Navy Supply Officer and 
graduate student at the Naval Postgraduate School studying 
Operations Research. 
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For each demand scenario four retention scenarios were 



analyzed using the simulation. The four retention scenario 
analyses follow. A Total Cost Analysis was performed to 
determine what the true optimal amount of inventory to hold 
was for a given quantity of initial excess inventory. A 
Constant Demand Analysis was performed to compare the various 
models to the theoretically optimal retention quantity that 
was determined during the Total Cost Analysis. A Declining 
Demand Analysis was performed to compare the models under 
three scenarios of declining mean demand patterns. Finally, 
Sensitivity Analysis was performed for four combinations of 
demand scenarios and declining mean demand patterns. The 
parameters evaluated in the Sensitivity Analysis were 
inventory holding cost rate, obsolescence rate, administrative 
order cost rate and salvage rate. 

CONCLUSION : The findings of this research showed that none 
of the models analyzed consistently yielded the lowest total 
cost and ACWT for all of the demand and retention scenarios 
examined. As a group, the "net benefit" models performed the 
best and generally performed better than the UICP retention 
model. Additionally, for most demand scenarios in both the 
Constant and Declining Demand Analysis, the decision on which 
model to chose could typically be determined by the MOE of 
total cost alone. This was due to the fact that the 
difference between the various models’ ACWTs for each demand 
scenario, was generally insignificant. In summary, the above 
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findings indicate that for Navy managed items the “optimal 



retention quantity differs significantly from item to 
based on variations in mean quarterly demand and 
price . 



item 

unit 
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BACKGROUND 



I . 



A. INTRODUCTION 

Retention and disposal policy for U. S. Navy wholesale 
inventories in long supply has been in a state of flux and 
under congressional scrutiny since 1985. Comments from the 
Chief of the Supply Corps on 19 July 1993 indicated that one 
of the preeminent issues regarding the future of the Supply 
Corps was Inventory Management /Reduct ion. He stated that 
inventory reduction is "a congressionally mandated process and 
a fiscal necessity .... we must continue to aggressively 
pursue inventory reductions in an intelligent manner, " and 
that it "demands our immediate and continuous attention" [Ref. 
1 ] . 

A key aspect of inventory reduction is the process used to 
identify two types of inventories: Economic Retention Stock 
(ERS) and potential excess inventory. ERS (sometimes referred 
to as Economic Retention Requirement (ERR) ) is the portion of 
the inventory above current requirements which is determined 
to be more economical to retain for future use as opposed to 
disposing and reprocuring in the future. The sum of current 
requirements and ERS is called the Retention Level (RL) when 
it is defined in terms of years worth of annual demand and is 
called Retention Quantity (RQ) when it is defined in terms of 
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the number of units. For this thesis the retention limit will 
generally be expressed in terms of years worth of annual 
demand and referred to as the RL. Potential excess inventory 
is that portion of material on-hand and on order beyond the 
RL. 

In 1985 the DOD adopted a policy to retain all units of 
any item having application to a weapons system in active use 
by any of the U. S. military services [Ref. 2] . This disposal 
moratorium was established as a result of inconsistencies the 
GAO identified in U. S. Air Force economic retention policy. 
In effect, the moratorium eliminated the need for any economic 
retention models. Motivated by new GAO findings in 1988 and 
1990 regarding the growth of DOD secondary inventories [Refs. 
3 & 4] , in 1990 the DOD lifted the disposal moratorium [Ref. 
2]. NAVSUP Instruction 4500.13 [Ref. 5] was subsequently 
issued to provide policy on retention of wholesale Navy 
material. The retention limit was set at 20 years worth of 
forecasted annual demand for items that have been stocked in 
the supply system for more than seven years and coded as 
"essential" material. Here "essential" material is defined as 
an item whose failure would result in the loss or severe 
degradation of primary mission capability. As a result of the 
shrinking DOD budgets and continued congressional concern over 
large DOD secondary inventories the retention level for 
wholesale Navy material was further reduced in August 1992 to 
eight years worth of forecasted annual demand [Ref. 6]. 
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This thesis contains an analysis and comparison of the 
U. S. Navy's current economic retention process to four 
mathematical/optimization models (Economic Retention Decision 
Models) designed to assist in making retention/disposal 
determinations with respect to excess inventories. The 
motivation for this research was based on three factors. 
First, the Navy Inventory Control Points (ICP) are not 
confident that eight years worth of forecasted annual demand 
is an appropriate RL. Second, with the ongoing budget 
reductions and reductions in the size of the Fleet, excess 
inventories will continue to be a financial and administrative 
burden. For example, as of March 1993 the Navy held $1.9 
billion in ERS and $1.5 billion in potential excess inventory 
for IH, 3H and 7 COG^ material. Finally, DOD Regulation 
4140. 1-R [Ref. 7:p. 4.5] recommends that better analysis 
supporting retention decisions be done through the use of 
economic retention decision models. The Navy does not 
currently use a classical economic retention decision model 
when making retention/disposal decisions for "essential" 
material . 

A simulation was developed in the Pascal programming 
language to compare the Navy's retention process and the 
mathematical models. The comparison is based on performance 

^Cognizant symbols (COG) are two character alpha- 
numeric codes which identify and designate cognizant 
inventory managers who exercise supply management over a 
specific category of material. 
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with respect to the measures of effectiveness (MOE) of total 

cost (TC) and average customer wait time (ACWT) . The 

simulation was co-developed by the author and LT Glenn 

Robillard, and was designed to emulate the portions of the 

Navy’s Uniform Inventory Control Program (UICP) applicable to 
this research. The simulation represents the demand process 
of a hypothetical Navy managed consumable item. The period of 
time over which demand is simulated and the characteristics of 
the item are specified by the user during the initialization 
of the simulation. Measures of effectiveness to be used in 
the performance comparison will be calculated from the actual 
cost and customer wait time data generated by the simulation. 
The UICP retention process and the various retention decision 
models will be tested in a variety of simulation scenarios. 
The scenarios are based on combinations of; 

- unit price 

- mean quarterly demand 

- variance of quarterly demand 

- patterns of declining mean quarterly demand 

- levels of excess inventory 

- inventory holding cost rate 

- obsolescence rate 

- administrative order cost rate 

- salvage rate 

The goal of this thesis is to determine how effective the 
Navy’s retention logic is as compared with the four economic 
retention decision models. 
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B. U. S. NAVY ECONOMIC RETENTION POLICY 

As discussed in the introduction to this chapter, the 
Navy's Economic Retention policy has been in a state of flux 
for approximately nine years. The current RL for "essential" 
materials (i.e., Item Mission Essentiality Codes (IMEC) 3, 4 , 
and 5) is set at eight years worth of annual forecasted 
demand, with ERS constrained to a minimum retention quantity 
of five units. All material that has been stocked in the 
supply system for less than seven years is not subject to a 
retention limit. This material is retained until the seven 
year waiting period has passed before being subject to 
retention review. 

Retention and disposal requirements are reviewed by the 
ICP semi-annually in conjunction with the execution of the 
March and September inventory Stratification, UICP application 
B20. Stratification is the process of matching current 
inventory to requirements and categorizing inventory based on 
the type of requirement. DOD Regulation 4140. 1-R [Ref. 7:p. 
4.3] defines the Stratification categories as Authorized 
Acquisition Objective (AAO) , Economic Retention Stock (ERS) , 
Contingency Retention Stock (CRS) , and Potential Reutilization 
Stock (PRS) . The Authorized Acquisition Objective is a 
combination of the peace-time requirements for U.S. Forces 
through the end of the second fiscal year following the 
current date and the approved stockage requirements for grant- 
aid and military assistance programs. Economic Retention 
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Stock is inventory held beyond the Authorized Acquisition 
Objective which is determined to be more economical to hold 
for future requirements as opposed to disposing and 
reprocuring in the future. Contingency Retention Stock is 
inventory held for known or potential requirements not covered 
by Authorized Acquisition Objective, such as initial 
outfitting, mobilization and Foreign Military Sales (FMS) . 
Potential Reutilization Stock (also known as Potential Excess 
(PE) ) is all inventory beyond the sum of the Authorized 
Acquisition Objective, Economic Retention Stock and 
Contingency Retention Stock. 

The ICPs will make the final retention/disposal decisions 
on material categorized as Potential Reutilization Stock. 
When a disposal release order is issued by the ICP, the depot 
holding the Potential Reutilization Stock will transfer the 
material to Defense Reutilization Marketing Office (DRMO) for 
salvage or reuse. For this research all Potential 
Reutilization Stock is assumed to be sent immediately to DRMO 
for disposal . 

The calculation of Economic Retention Stock (ERS) 
performed during the UICP Stratification application is 
summarized as follows [Ref. 6,8]: 

ERS = Max { (RL-D1-D2-D3-M) ,5} ^ ^ 
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Where : 



RL = eight years worth of forecasted annual demand. 

D1 = forecasted demand, remainder of current year. 

D2 = annual forecasted demand, appropriation year. 

D3 = annual forecasted demand, budget year. 

M = reorder Objective, which equals the sum of 

safety stock, leadtime demand, and an economic 
order quantity (EOQ) . 

The calculation for Economic Retention Stock (Equation 
1.1) is based on recurring demand and does not take into 
account the portions of the Authorized Acquisition Objective 
which are considered non-recurring demand, such as Preplanned 
Program Requirements (PPR), Prepositioned War Reserves (PWR), 
Other War Reserves (OWR) and outstanding backorders (Due-out) . 
In addition. Equation 1.1 constrains the Economic Retention 
Stock to a minimum of five units, to ensure a minimal buffer 
or safety stock is maintained for "essential" material. The 
actual amount of inventory held is equal to the sum of 
Authorized Acquisition Objective, Economic Retention Stock and 
Contingency Retention Stock (where Authorized Acquisition 
Objective plus Economic Retention Stock equals the System 
Retention Level) . By placing the five unit minimum constraint 
on Economic Retention Stock, the System Retention Level is 
also constrained to a minimum of five units. For this thesis 
Planned Program Requirements, Prepositioned War Reserves, 
Other War Reserves and Contingency Retention Stock were 
assumed to be zero. 

Because the key to the amount of inventory categorized as 
Economic Retention Stock and Potential Reutilization Stock is 
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the RL, this research will focus on alternative methods of 
calculating a RL through the use of Economic Retention 
Decision Models. 

C. ORGANIZATION OF RESEARCH 

The remainder of this thesis will be devoted to the 
discussion of mathematical economic retention models, the 
development of the analytical approach and simulation, and the 
presentation of the simulation results and conclusions. 
Chapter II reviews various mathematical models and discusses 
selection of the models chosen for the research. Chapter III 
develops the analytical approach to be used in comparing the 
UICP retention process to the mathematical models chosen in 
Chapter II. Chapter IV provides a description of the 
simulation, to include a discussion of the major procedures 
and algorithms used. Chapters V and VI present the simulation 
results. Finally, conclusions and recommendations are 
presented in Chapter VII. 
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II. ECONOMIC RETENTION DECISION MODELS 



A. LITERATURE REVIEW 

Excess inventories are an administrative and economic 
burden which consume valuable warehouse space, deplete working 
capital and help to reduce inventory accuracy. In general, 
there are two causes for excess inventory. First, the demand 
rate may be overestimated due to a forecasting error, a change 
in technology or a change in operating tempo. Second, the 
Navy may obtain more units than they intend in a given 
replenishment action. This can happen as a result of errors 
in procurement document quantities or because the supplier 
delivers more units then the Navy requested. 

Mathematical models designed to represent the excess 
inventory problem are known as Economic Retention Decision 
Models. The objective of an Economic Retention Decision Model 
is to reduce the administrative and economic burden of 
carrying excess inventory through disposal of surplus stock. 
The approach to determining how much excess inventory to carry 
and how much should be disposed of varies from model to model. 
The basic idea behind most Economic Retention Decision Models 
is to determine the trade-off between the cost to dispose of 
material and the cost to hold material. What differs between 
models is how to define the cost to dispose of material and 



t 
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the cost to hold material. 



While considerable literature 



exists on determining inventory retention levels, few 
researchers have directly addressed the Navy's excess 
inventory problem. 

1 . Heyvaert and Hurt 



that treated the situation in which mean demand is declining, 
which is one of the causes of excess inventory [Ref. 9] . The 
model was designed to provide a simple, fast and accurate 
method for determining optimal stocking levels for slow-moving 
items. A unique objective function based on material storage 
costs and the cost of non-satisfaction of a demand was 
derived, with the optimal inventory levels (available level) 
being determined by minimizing the total cost function (W) : 



Heyvaert and Hurt developed one of the first models 



2.1 



W = aJ + pP 



B 



2.2 



a = V (s-d/2)p^ + Y, (sV2d)Pd 





2.3 



Where : 



a = long run mean stock level, assuming variations in 
demand are linear. 



I = total cost to store one unit during a 
replenishment period (t) . 
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(3 = expected number of shortages during a 
replenishment period (t) . 

P = total cost resulting from non-satisfaction of a 
demand requirement. 

s = current inventory on hand and on order (available 
level) . 

d = demand during a replenishment period (t). 

Pd = probability that an issue of size d will have to 
be made, assumes d has a poisson distribution 
with mean = |i, 0.1 <|i< 10.0. 

Although this model does not treat the problem of 
excess stock generated from reduced demand rate, the concept 
of determining optimality based on cost and customer 
satisfaction helped motivate the use of total cost and ACWT as 
the MOEs to be used in the performance comparison phase of 
this research. 

2 . Rothkopf and Fromovitz 

The Rothkopf and Fromovitz model for a save-discard 
decision involves a bulk commodity that comes in a rented 
container [Ref. 10]. Although this model is too specific to 
adapt to the Navy problem, it is one of the few models which 
deals with the stochastic nature of demand. It also applies 
the concept of discounting future costs. 

3 . Hart 

Hart designed a procedure to calculate a procurement 
schedule and retention quantity for a selected inventory item 
[Ref. 11]. The procedure minimizes the sum of discounted 
relevant costs which vary in amount or in timing with changes 
in the retention quantity. Relevant costs include the cost of 



11 



holding the retained quantity, cost of not scrapping the 
retained quantity, cost of delaying the write-off of the 
retained quantity (write-off occurs when the material is 
either sold or scrapped), cost of procured quantities, and 
cost of holding the procured quantities. The minimum cost 
retention quantity is determined using a sequential search 
procedure based on the "Golden Section" method. For each 
retention quantity considered, a procurement schedule is 
determined heuristically according to a set of rules based on 
Economic Order Quantities and Economic "Bridging" Quantities. 
While Hart's model provides an interesting approach to the 
excess inventory problem, the level of effort required to 
incorporate his model into the Navy's UICP levels software 
application was beyond the scope of this research. 

4 . Simpson 

Simpson's "formula" is one of the most frequently 
cited works in recent literature dealing with the excess 
inventory problem [Ref. 12] . The formula provides a clear and 
easy-to-use procedure which was originally developed for 
possible implementation by the Navy. 

The formula compares the cost of storing material, 
considering the chance that it may become obsolete and the 
cost of repurchasing the material in the future when needed, 
if present surpluses are sold by disposal action today. An 
economic retention period formula was derived which equals the 
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cost (per dollar value of material) of retaining X years of 
stock iCj.) less the cost (per dollar value of material) of 
disposing of X years of stock (C^) . In the derivation of the 
formula it was assumed that future demand was known and 
constant, all general price levels and rates were also 
constant. The derivation is a follows: 



= l-(l-p)^+r( (1-p) (l+i)^+(l-p)2(i+i)^-i+ + (l-p)^(l+i)) 

2.4 



Ca = l-I2(l+i)^ 



Where : 

Cl- = cost of retaining X years of stock. 

Ca = cost of disposing of X years of stock. 

D = fraction of present unit price of material which 
will be realized in disposal sales (i.e. 15 cents 
on the dollar, D = .15). 

p = fraction of material which will become obsolete in 
any one year. 

r = annual storage cost rate per dollar of material. 

i = annual interest rate. 

X = Retention Level (RL) . 

Equation 2.4 (C^.) represents the obsolescence cost and 
storage cost incurred from holding material for X years. The 
obsolescence cost term (l-(l-p)^) calculates the dollar value 
of loss due to obsolescence (per dollar of material) 
compounded over X years. The storage cost represents the 
cumulative cost of holding inventory X years, where the dollar 
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value of inventory is reduced by p each year due to 
obsolescence, and includes the cost (compounded annually) of 
lost interest revenue from money used for storage costs. 

Equation 2.5 (0^) represents the cost (per dollar of 
material) of furnishing a given quantity of an item at time tx 
given material was disposed of at time t^. The cost of 
disposal is reduced by the return from disposal sales, which 
is increased in value at the compound interest rate until tx- 

The value for X, the optimal number of years stock to 
be retained (RL) is obtained by equating to and solving 
for X. Simpson gives the following such solution: 



log 


ri?(i+p) +r(l-p) (l+i) i 


i+p+r(l-p) (l+i) 


lo^ 







5 . Mohon and Garg 

The Mohon and Garg model expanded on Simpson's 
economic retention period formula by considering the case in 
which shelf life^ is probabilistic [Ref. 13]. They also 
derived the specific case in which shelf life is exponentially 
distributed. While the Mohon and Garg model may offer some 



^Mohan and Garg assume shelf life is a function of 
obsolescence and deterioration. The Navy uses a combination 
of shelf life codes to account for deterioration of material 
and an obsolescence factor included in the system (UICP) 
holding cost rate. 
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improvements over Simpson’s basic formula, it would be 
difficult to apply their model in the Navy's UICP. 
Determining the appropriate probability distributions for 
obsolescence and deterioration rates to use with the expanded 
model would be a complex task. Because of this, a retention 
model which has robust performance with respect to 
obsolescence rate might be more appropriate for the Navy. 

6. Tersine and Toelle 

Tersine and Toelle developed two "net benefit" models 
of differing complexity for determining inventory retention 
levels [Ref. 14]. The models indicate how much inventory 
should be held (economic time supply or RL) and how much 
should be disposed of at a specific salvage price for a given 
item. In the derivation of both "net benefit" models it was 
assumed that future demand was known and constant, all general 
price levels and rates were also constant, and no stockouts 
were permitted. 

The first or simple net benefit (NB) model calculates 
the economic time supply of material to hold that maximizes 
net benefit (cost savings) resulting from the sale of excess 
stock. The formulation of the NB equation and the economic 
time supply (to) is as follows: 
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2.7 



Net Benefit = Salvage Revenue + Holding Cost Savings 
-Repurchase Cost - Reorder Cost 



Salvage Revenue 


= gP^ = P^iM-tR) = PJi-PJit 


2.8 


Holding Cost Savings 


M^PF_ iM-q)^PF 
2R 2R 


2.9 




M^PF_ RPFt^ _ MQPF ^ QPFt 
2R 2 2R 2 




Repurchase Cost 


= Pq = PM-PRt 


2.10 


Reorder Cost 


_ Cq _ CM CRt 

0 ~ 0 Q 


2.11 



Where : 

q = M - tR = amount of excess inventory that is 
disposed of, in units. 

t = time supply, in years worth of inventory 
retained. 

to = economic time supply in years worth of inventory 
retained (RL) . 

C = ordering cost per order. 

F = annual holding cost fraction. 

M = available stock in units. 

P = unit cost of the item. 

Ps = unit salvage value of the item. 

Q = economic order size in units. 

R = annual demand in units. 



The resulting net benefit formulation is as follows: 



fit) 



RPFt^ 

2 




QPF _^ - MQPF 

2 0 } 2R 2R 



+PJi-PM- 



0 



2.12 
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Note that f (t) describes a parabola and therefore has a single 
maximum. By taking the first derivative of f(t) with respect 
to t and setting it equal to zero, the economic time supply 
(to) equals: 



^ P Pg+C/0 ^ Q 2.13 

PF 2R 

Since the second derivative of f(t) is negative, to is located 
at the maximum point . 

The second model, a present value net benefit (NB-NPV) 
model, compensates for the fact that investments occur at 
different points in time by discounting them to their present 
value. Under continuous compounding, the present value of a 
future purchase of an item with a current price (P) at time t 
is Pe’'"’^*'^, where i is the annual inflation rate and k is the 
discount rate. For this thesis inflation was assumed to be 
zero and the discount rate was set to seven percent. 

The formulation of the objective function of the net 
present value version of the net benefit model is as follows: 



fit) 



PFtR{e-^*=-l) ^ 
2k 

^ PFM{l-e-^/^) 
2k 



PFQ ^ 
2ii-k) 

r PFQ 
2[i-k) 



PQ+C 

Q (i-k)Q/R_-^ 



e 



. PQ^C 

Q (i-/c)C>/fi_3_ 



(i-/c) t_p^t+P^ 



Q U-k)M/R 



2.14 
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Although Equation 2.14 cannot be solved directly for t, 
Newton's method can be used iteratively to obtain a solution. 
Where : 



*^i3+l 



= 






2.15 



For this thesis the t^ obtained from the NB model was 
divided by two and then used as an initial estimate for the 
NB-NPV model to. The NB model to was divided by two to ensure 
that the initial approximation to the NB-NPV model to was 
sufficiently close to the optimal solution so that Newton's 
method would converge upon a solution. This choice of initial 
starting solution was particularly important for the demand 
scenarios with low unit price, because the RLs for the NB-NPV 
model were expected to be significantly less than the 
respective RLs for the NB model. Successive values for t were 
calculated until lt„+i-tr,| < 0.01. When this stopping 
condition was satisfied, the final to for the NB-NPV model was 
set equal to t„+i . 

Although the Navy UICP assumes that demand is 
stochastic and allows for stockouts, Tersine and Toelle's "net 
benefit" models are well suited for application in the Navy's 
UICP. In an effort to account for the potential for stockouts 
due to the stochastic nature of demand typically associated 
with a Navy managed item, a modified "net benefit" (NB-MOD) 
model was developed. 
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Disposal of some quantity of excess inventory will 
cause the inventory position (IP) to reach the reorder point 
(RO) prior to the time it would have reached the RO without 
the disposal of the excess inventory. Therefore, with 
disposal the inventory system will experience one or more 
additional reorder cycles, depending on the quantity disposed. 
Because of the stochastic nature of demand, every additional 
reorder cycle exposes the inventory system to an increase in 
the number of possible stockouts. In the modification of the 
NB model, for every additional reorder cycle that occurs due 
to disposal, the net benefit from disposal is reduced by the 
expected additional shortage costs. The modified formulation 
(NB-MOD) is: 



Net Benefit [MOD) = Salvage Revenue + Holding Cost Savings 

- Repurchase Cost - Reorder Cost 

- Shortage Cost 



2.16 

The new term, shortage cost, is a linear function of 
the number of additional reorders (N) that are made due to the 
disposal of q units worth of stock. We must first calculate 



N: 



N = 



M_ [M-q] 
R R 

Q 

R 



M-tR 

Q 



2.17 
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Where : 



N 

M/R 

(M-q) /R 
Q/R 

E[x>RO] 

RO 

A 

X 



number of additional reorders required due 
to the original disposal of q units, 
mean time supply of material without 
disposal . 

mean time supply of material with disposal, 
mean time between reorders, 
expected number of shortages in a reorder 
cycle . 

reorder point . 
shortage cost per unit, 
actual demand during a procurement 
leadtime . 



Now we may obtain the shortage cost: 



Shortage Cost = J\H(.B[x>i?0] ) 
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The expected number of shortages (E[x>RO]) in a 
reorder cycle, assuming that X is normally distributed with 
mean, |a and variance, is given by [Ref. 15] : 



E[x>RO] = (il-RO) xP 






2.19 



Where : 



P 



(z>^) 



= Probability of a stockout. 
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f |z=— = standard normal distribution function 

evaluated at — 

o 

RO — RL + CTZ . 

Z = Standard normal distribution value which 

satisfies the UICP "probability of a stockout"' 
expression for a given values of R, L, |i, a-', F, 
P, K, and E. 

H = mean leadtime demand^. 

= variance of leadtime demand^ 

L = procurement leadtime demand in years. 

Because the term E[x>RO] in Equation 2.20 is not a function of 
t, the expected number of shortages in a reorder cycle is 
treated as a constant. 

Collecting these terms together, the objective 
function of the modified net benefit model is: 



f{t) 






2.20 



‘The UICP levels application calculates the probability 
of stockout using the following expression: FP/(FP+AE), where 
F is the annual holding cost fraction, P is the unit cost of 
an item, A is the shortage cost per unit and E is the military 
essentiality . 



^In UICP this parameter is PPV. 
’In UICP this parameter is B019A. 
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Next we must determine if Equation 2.2 0 is a parabola. 
Note that Equation 2.20 can be expressed in the form at“+bt+c 
and thus is a parabola [Ref. 16,p.39]. By grouping terms 
appropriately we obtain the constants a, b, and c: 



(EPF) 
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Jb = PE-P^+-^^ + — -—A(E[x>EO]) 

2 0 Q 



2.22 



c = ^ +PgM-PM- ^-Ma(E[x>RO]) 2.23 
2R 2R ^ QQ 

By taking the first derivative of f (t) (Equation 2.20) 
with respect to t, setting it equal to zero and solving for t, 
the modified economic time supply (to) is obtained: 



^ Q ^ C+A(E[x>RO] ) 

PF 2R QPF 



2.24 



Since the second derivative of f (t) is negative, to is located 
at the maximum point . 

7 . Silver and Peterson 

Silver and Peterson developed a rule for the disposal 
of excess inventory which, while derived using a different 
approach from that of Tersine and Toelle, yields the same 
numerical results [Ref. 17:Chap. 9]. In a manner similar to 
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Simpson’s approach, Silver and Peterson focused on the cost of 
no disposal (C^o) versus the cost of disposal (Cp) . Then, 
assuming an EOQ strategy with deterministic demand. Silver and 
Peterson formulated an objective function of C^r - Cp , where; 

^ _ I^vr 

Cd = -gW+[^) ( -^) vr+^ W2ADvr+Dv) 

Where: 

Cnd = cost of no disposal. 

Cp = cost of disposal. 

W = amount of excess inventory to dispose in units. 

I = on hand inventory in units. 

D = expected annual demand in units. 

V = unit price. 

g = salvage value per unit. 

r = holding cost rate $/$/yr. 

A = administrative order cost per order. 

The last term in Cp represents the inventory holding cost, the 
administrative ordering cost and the repurchase cost of the 
stock disposed (W) incurred after the stock retained is 
exhausted (which occurs at time (I-W)/D and continues until 
time I/D) . The inventory holding cost and the administrative 
ordering cost are calculated assuming an EOQ strategy. The 
repurchase cost of the stock disposed (W) is calculated 
assuming the repurchase unit cost equals the unit cost at the 
time of disposal. 

By taking the first derivative of the objective 



2.25 

2.26 
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function (C^d - C^) with respect to W and setting it equal to 
zero we obtain Silver and Peterson's "decision rule for 



disposal, " an expression for W, which maximizes Cnp - C,,. 



in the formulation of their model than Tersine and Toelle, it 
can be show that Silver and Peterson's "decision rule for 
disposal" and Tersine and Toelle 's simple "net benefit" model 
yield the same results. Using Silver and Peterson's notation 
it can be shown that Tersine and Toelle 's economic time supply 
(to) multiplied by annual demand (D) equals Silver and 
Peterson's equation for the amount of inventory to retain (I- 
W) , as follows: 



W = I-EOQ- ^^ ^3) 



2.27 



Although Silver and Peterson used a different approach 



D{v-g) 



, DA ^ EOQ 



vr 



vrEOQ 2 




for EOQ yeilds 




_ D ( v-g) ~in7 



vr 2vr 




= + EOQ = I-W 



QED 
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Because the two derivations result in the same 
economic retention decision, only the notation from one 
derivation was used in the thesis. Tersine and Toelle's 
notation and approach was chosen, primarily because of the 
extensive background provided on the excess inventory problem 
and the thorough development of the derivation of their model. 

8. Rosenfield 

Rosenfield developed a model for the optimal number of 
items to retain for slow moving or obsolete inventories under 
conditions of stochastic demand and perishability (shelf-life) 
[Ref. 18]. This model is one of the few that addresses the 
probabilistic nature of demand for the general excess 
inventory problem. Rosenfield 's basic model assumes that 
episodes of demand can be represented by a renewal process. 
This allows for a variable number of units demanded per 
episode. The model determines the correct number of units to 
retain. In the model a unit is worth disposing of if its 
immediate salvage value (it's present resale value) exceeds 
it's expected discounted sales value (from a future sale if 
the unit is held in inventory) minus the expected holding 
costs to be incurred (until the time of sale) . 

Because Rosenfield 's final expression for the number 
of units to retain contains the moment generating function for 
the distribution of time between demand episodes, the model 
becomes complex when the distribution of demand episodes is 
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not a Poisson distribution. Although this model may have 
application to the Navy's excess inventory problem, the level 
of effort required to incorporate Rosenfield's model into the 
Navy’s UICP levels software application was beyond the scope 
of this research. 

B. SDMMTUIY 

The mathematical models chosen for this research were 
based on their applicability to the Navy’s excess inventory 
problem, the UICP model, and the simulation. The models 
chosen were: 

- Simpson's "economic retention period formula" (TRAD). 

- Tersine and Toelle's simple "net benefit" model (NB) 

- Tersine and Toelle’s present value "net benefit" model 
(NB-NPV) . 

- The modified "net benefit" (NB-MOD) , a version of the 
simple "net benefit" model. 

These models, together with the Navy’s UICP current retention 
logic, will be referred to as the "models" throughout the 
remainder of the thesis. 

Although the UICP model was developed under the assumption 
that demand is stochastic, all the mathematical models listed 
above were developed under the assumption that demand was 
deterministic (with the exception of NB-MOD) . The decision to 
use primarily deterministic models was based on two factors. 
First, as Simpson [Ref. 12] discussed, the effect the 
deterministic assumption has on a Retention Level (RL) is not 
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significant. Secondly, the difficulty of incorporating into 
the UICP model and into the simulation the stochastic models 
reviewed does not justify the small improvement in accuracy 
which, according to Simpson, we would experience. Because a 
true stochastic economic retention model was not used in this 
research, a Total Cost Analysis (see Chapter III.C.l) was 
conducted to develop a baseline, with respect to cost, to 
evaluate how the deterministic models actually perform in a 
stochastic environment . 
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III. RESEARCH APPROACH AND ANALYTICAL METHOD 



A . OVERVIEW 

The analysis that was done for this thesis made use of a 
simulation that was written in Pascal. The simulation was 
developed to represent the Navy's UICP model as well as the 
mathematical models that were analyzed in this research. A 
complete discussion of the simulation program is contained in 
Chapter IV. 

The analysis and performance comparisons of the models 
were based on MOEs calculated from simulated data for six 
basic demand scenarios. For each demand scenario four 
retention scenarios were analyzed using the simulation. A 
Total Cost Analysis was performed to determine the optimal 
amount of inventory (from just the cost standpoint) to hold 
for a given quantity of initial excess inventory. A Constant 
Demand Analysis was performed to compare the various models to 
the theoretically optimal retention level that was determined 
during the Total Cost Analysis. The same input parameter 
values were used in the Constant Demand Analysis as in the 
Total Cost Analysis. A Declining Demand Analysis was 
performed to compare the models in three scenarios (patterns) 
of declining mean demand. Finally, Sensitivity Analysis was 
performed on various combinations of demand scenario, pattern 
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of declining mean demand, and the parameters of administrative 
reorder cost rate, salvage rate, inventory holding cost rate, 
and obsolescence rate. (A complete discussion of the 
Sensitivity Analysis is contained in Chapter VI.) 

Table 1 provides a summary of retention scenarios, cross 
referenced by demand scenario and mean quarterly demand 
pattern. Each entry in the table represents a set of 
simulations and will be referred to as a simulation setting. 
The meanings of the demand scenario acronyms can be found in 
Table 2. A summary of the 16 specific settings to be 
considered in the Sensitivity Analysis is provided in Chapter 
VI, Table 9. 

In the performance comparison phase of the research the 
models were ranked based on the MOEs of total cost and ACWT. 
The comparisons were done by demand scenario for the results 
from the analysis scenarios of Constant Demand Analysis, 
Declining Demand Analysis, and Sensitivity Analysis. Multi- 
Attribute Decision Making techniques and hypothesis tests 
based on a paired difference t-test were used to compare the 
performance of the models. 

B . DEMAND SCENARIOS 

Items managed by the Navy are assigned a Navy Mark Code 
based on unit price and mean quarterly demand. The Mark Code 
indicates the probability distribution for leadtime demand and 
the inventory level setting method to be used in the UICP 
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model [Ref. 19:p. 3-9]. Six hypothetical items based on the 
Mark Code designation criteria were selected for use 
throughout the research. The hypothetical items, called 
demand scenarios, were chosen so that the effect of varying 
level setting computation methods, unit price and mean 
quarterly demand on economic retention decisions could be 
analyzed. The demand scenarios described in Table 2 are a 
function of the probability distribution of demand episodes. 



TABLE 1. SUMMARY OF SIMULATION SETTINGS 



DEMAND 

SCENARIO 


HDHVHP 


HDHVLP 


HDLVHP 


HDLVLP 


LDHP 


LDLP 


DEMAND 

PATTERN 














CONSTANT 


TCA 


TCA 


TCA 


TCA 


TCA 


TCA 


MEAN 

DEMAND 


CDA 


CDA 


CDA 


CDA 


CDA 


CDA \ 


DECLINING 














MEAN 

DEMAND 

"STEP" 


DDA 


DDA 


DDA 


DDA 


DDA 


DDA 


DECLINING 


DDA 








DDA 




MEAN 

DEMAND 

"CONVEX" 


SA(16) 


DDA 


DDA 


DDA 


SA(16) 


DDA 


DECLINING ' 


DDA 








DDA 




MEAN 

DEMAND 


SA (1 6) 


DDA 


DDA 


DDA 


SA(16) 


DDA 


"CONCAVE" 















Legend: TCA = Total Cost Analysis, CDA = Constant Demand 
Analysis, DDA = Declining Demand Analysis, SA = 
Sensitivity Analysis (16 simulation settings for 
each demand scenario and demand pattern combi- 
nation) . 
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mean quarterly demand (high and low) , variance of quarterly 
demand (high and low) , and unit price (high and low) . Demand 
variance for the demand scenarios with a normal distribution 
are classified as high (with a standard deviation to mean 
ratio of 1.25) and low (with a standard deviation to mean 
ratio of 0.30) [Ref. 20]. 



TABLE 2 . DEMAND SCENARIOS 



NAVY 

MARK 

CODE 


PROBABILITY 

DISTRIBUTION 


MEAN 

QUARTERLY 

DEMAND 


DEMAND 

VARIANCE 


UNIT 
PRICE ($) 


ACRONYM 


4 


Normal 


High: 


20 


High: 


625 


High: 1500 


HDHVHP 


4 


Normal 


High: 


20 


Low: 


36 


High: 1500 


HDLVHP 


2 


Normal 


High: 


20 


High : 


625 


Low: 20 


HDHVLP 


2 


Normal 


High: 


20 


Low: 


36 


Low: 20 


HDLVLP 


3 


Poisson 


Low: 


2 


N/A 


High: 1500 


LDHP 


1 


Poisson 


Low: 


2 


N/A 


Low: 20 


LDLP 



C. ANALYSIS SCENARIOS 

1. Total Cost Analysis 

This analysis was performed to compute a total cost 
for 100 quarters of demand activity for a given demand 
scenario based on the following set of assumptions. Assume at 
time zero the inventory is in an excess position and an 
immediate retention/disposal decision is made. Next, assume 
that this is followed by 100 quarters of demand activity with 
a stationary quarterly mean demand. The initial on-hand 



31 



inventory selected for demand scenarios with high unit price 
was equal to 20 years of average annual demand. For demand 
scenarios with low unit price, the initial inventory was equal 
to 25 years of average annual demand. A total cost was 
calculated for various retention levels beginning with a level 
equal to 0.5 years of annual demand and continuing, in 
increasing increments of 0.5 years annual demand. Retention 
levels were not increased beyond the inventory on hand at time 
zero. Based on an initial inventory of 20 years worth of 
annual demand for the demand scenarios with high unit price, 
40 total cost^ data points (retention levels) were calculated. 
These data points were used to construct total cost curves for 
the demand scenarios with high unit price. Based on an 
initial inventory of 25 years worth of annual demand for the 
demand scenarios with low unit price, 50 total cost data 
points (retention levels) were calculated. These data points 
were used to construct total costs curves for the demand 
scenarios with low unit price. 

Each total cost data point is discounted to current 
year dollars and is equal to the sum of material cost, 
administrative ordering cost, inventory holding cost, shortage 
cost and salvage revenue which accrue over a simulation period 
(See Equations 3.1 and 3.2). The total cost data points for 



*The total cost figure used for each data point is the 
average total cost over all replications of the respective 
simulation . 
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each demand scenario were then plotted to form a total cost 
curve (See Appendix E, Graphs 13 through 24) . The goal of the 
Total Cost Analysis was to determine if a minimum total cost 
associated with a single retention level existed in a 
stochastic demand environment in the same way as shown by 
Tersine for the deterministic case [Ref. 14] . The minimum of 
each total cost curve was used to obtain the optimal retention 
level for each demand scenario. These optimal retention 
levels were used as a benchmark for comparing the performance 
of the models in the Constant Demand Analysis phase. 

2 . Constant Demand Analysis 

This analysis was designed to compare the performance 
of the models to the performance of the optimal retention 
level determined in the Total Cost Analysis. The comparison 
was done for all combinations of the demand scenarios and the 
models under the same simulation settings that were used in 
the Total Cost Analysis. The goal of this analysis was to 
determine, for each demand scenario, how the models performed 
in the Navy's stochastic demand environment with respect to 
the optimal retention level. 

3 . Declining Demand Analysis 

This analysis was designed to compare the models under 
a scenario involving declining mean quarterly demand. Three 
patterns of declining demand where developed for this 
analysis. The declining demand patterns represent possible 



33 



effects the reduction in Naval Forces and budget might have on 
demand for Navy managed items. In Appendix E, Graphs 1 
through 6 depict the six patterns of declining demand that 
were used. Demand activity for these scenarios begins with a 
pattern of 30 quarters of stationary mean quarterly demand. 
This allows the simulation model to reach steady state as 
discussed in Chapter IV. This was followed by 20 quarters 
with declining mean quarterly demand and finished with 16 
quarters of constant mean quarterly demand. The 16 quarter 
period was included to allow the determination of the long 
term effect that a specific retention policy might have on 
performance. Over the period of the decline of the mean 
quarterly demand, for demand scenarios with a high mean 
demand, the demand decreased from a mean of 20 units per 
quarter to a mean of 2 units per quarter. The mean quarterly 
demand for demand scenarios with low demand decreased from a 
mean of 2.0 units per quarter to a mean of 0.2 units per 
quarter. The comparison of model performance was done for 
all combinations of the demand scenarios, models, and decline 
patterns . 

D. PERFORMANCE COMPARISONS 

The concept behind the performance comparisons is to 
provide Navy inventory modelers with some quantitative data 
that will help them select the most suitable model to use in 
a given situation. The use of total cost and ACWT as the MOEs 
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was motivated by two factors. The first was Heyvaert and 
Hart's use of cost and customer satisfaction in the 
development of their model [Ref. 9], which in essence asserts 
that when evaluating a model total cost is not the only 
evaluation criteria to consider. Modelers should also 
consider how a model satisfies customer requirements. The 
second was the fact that total cost and ACWT are generally of 
primary concern to the managers at the Navy's inventory 
control points when they make inventory policy decisions. 

The total cost MOE (Equations 3.1 & 3.2) is based on the 
Navy's UICP model total cost objective function [Ref. 19:p. 3- 
A-4] . Total cost is discounted to current year dollars and is 
equal to the sum of material cost, administrative ordering 
cost, inventory holding cost, shortage cost and salvage 
revenue which accrue over a simulation period. Costs were 
discounted because of the length of time (simulation period) 
over which the analysis was performed. Additionally, costs 
were discounted to evaluate the effect, over time, the models' 
varying disposal decisions had on total cost. 



TCU?) = V 

/C=l 



iOkP 




Df^P) F 



3.1 



F = 




3.2 
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Where : 



TC(D) = total discounted cost for one replication of 
a simulation given D units disposed during 
the simulation period. 

F = discount factor. 

Qk = number of units ordered during quarter k. 

P = unit price. 

A = administrative order cost. 

Ck = number of orders placed during quarter k. 

Ej = inventory on hand at the end of week j . 

H = holding cost fraction ($/unit-yr) . 

Tk = time Weighted Units Short (TWUS) for quarter 
k, see Equation 3.4. 

S = shortage cost ($/unit-yr) . 

D|^ = number of units disposed of during quarter k. 

R = salvage rate (a fraction of P) . 
i = discount rate, 

q = number of quarters simulated, 

j = summation index for 13 weeks of a quarter, 

k = summation index for the number of quarters 

simulated . 



The ACWT measures the mean time required, in days, for the 
wholesale supply system to meet customer demands. ACWT for 
one replication of a simulation equals the time weighted units 
short (TWUS) divided by the total demand (D) over the 
simulation period (Equations 3.3 & 3.4). The simulation ACWT 
was equal to the average of all replication ACWTs . 



ACWT 



TWUS 

D 



3.3 



n 

TWUS = 53 [ {RDj^-BODj) xAR^] 



3.4 
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Where : 

n = number of backorders (in units) for 
measurement period. 

RDj = receipt date of the i*^*' backorder . 

BODj = date the i'^‘^ backorder occurred. 

AR; = amount of i*^'' backorder (in units) filled on 
RD,. 

The actual performance comparisons were done using two 
methods. One method is the paired difference t-test and the 
other method is Multi-Attribute Decision Making (MADM) . 

1. Paired Difference t-Test 

Hypothesis tests based on a paired difference t-test 
statistic [Ref. 21:p. 572] were conducted on the results of 
the Constant Demand Analysis, Declining Demand Analysis, and 
Sensitivity Analysis simulations to determine which model (s) 
performed better than all others in each MOE category. Given 
that model "X" had the best result for a specific MOE, the 
null hypothesis was that the corresponding result, for every 
other model was equal. The alternative hypothesis was that 
the corresponding result, for every other model was not equal 
to the result for model "X." 

The paired difference t-test was used because there 
was dependence between the MOE results of the models for each 
setting simulated. The dependence was attributed to the fact 
that for each replication of a simulation, the randomly 
generated demand streams were identical for all the models 
within a setting. Further discussion of the relationship 
between random number generation and the dependency of results 
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is contained in Chapter IV. 

2. Multi-Attribute Decision Making (MADM) 

In order to compare the models performance, the 
decision analysis technique known as Multi-Attribute Decision 
Making (MADM) , a subset of the decision making processes known 
as Multi Criteria Decision Making (MCDM) , was used. There are 
four characteristics which make this performance comparison a 
Multi-Criteria Decision Making problem [Ref. 22, p. 2]. First, 
there are multiple attributes (MOEs of total cost and average 
customer wait time) . Second, there is conflict among the 
MOEs, i.e. the higher the TC (which is bad) the lower the ACWT 
(which is good) . Third, the MOEs have different units of 
measure (TC is per simulation period and ACWT is in terms of 
days per requisition) . Fourth, the selection of the best 
model is to be made based on each model's level of achievement 
in the MOEs of TC and ACWT [Ref. 22, p. 3] . The primary 
feature which makes the model selection decision a MADM 
process is that there are a limited number of predetermined 
alternatives [Ref. 22, p. 3]. In this case the alternatives 
are the retention models being analyzed. By using the MADM 
technique a final decision (model selection) can be made. 

The Simple Additive Weighting Method, one of the best 
known and widely used methods of MADM, was the method used for 
this thesis [Ref. 22, p. 99-103]. To determine a preferred 
model, a decision matrix must be constructed that includes the 
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MOE values for each model. Because the Simple Additive 
Weighting Method requires a comparable scale for all elements 
in the decision matrix, a comparable scale matrix is obtained 
using Equation 3.7 to convert the MOE values to comparable 
units. In addition to the comparable scale decision matrix, 
a set of importance weights are assigned to the MOEs, w = 
{Wt,-/ • it should be noted that w is normalized to sum to 
one. The weights should reflect the decision makers marginal 
worth assessment for each MOE. A total score (weighted 
average) for each model (Aj) and the most preferred model (A*) 
can be determined as follows: 



A* = max {Ail Vi = l, ... ,m) 



A, = ^ 






2 



Xi - = min (Xi-lVi = 1, ... ,m} / 



3.5 

3.6 

3.7 



Where : 

m = the number of models being analyzed, 
i = the i'^*’ model of the m models, 
j = the MOEs of TO (j=l) and ACWT (j=2) . 

Wj = the importance weight for the MOE. 
rjj = the comparable scale value for the MOE of 
the i*^'’ model . 

Xjj = the MOE value for the i'^'’ model. 

Although MOE results (Xjj) are transformed onto a 
comparable scale (r^^) by Equation 3.7, the decision makers 
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perspective regarding a difference of 0.2 between two model's 
ri^ for the attribute of ACWT may not have the same 
significance as a difference of 0.2 between the same model's 
rj. for the attribute of TC. For example, if the ACWT X ;2 is 
1.0 day in Model 1 and 0.8 days in Model 2 and the TC x^ is 
$80,000.00 in Model 1 and $100,000.00 in Model 2, a decision 
maker would probably consider the change in the TC x^s to be 
more significant. But if TC and ACWT are weighted equally 
Model 1 and Model 2 would have the same Aj . The key to making 
effective use of MADM techniques is selecting proper MOE 
weights. Weights should be chosen to reflect the relative 
significance of trade-offs between TC and ACWT. 

Because the selection of MOE weights is somewhat 
subjective and could vary between decision makers, three sets 
of weights were used when comparing the performance of the 
models (see Table 3). The use of three sets of weights will 
show the sensitivity of model selection to MOE weights. The 
sensitivity of model selection to changes in MOE weighting 
should also identify models which perform better with respect 
to total cost or ACWT. 



TABLE 3. MADM MOE WEIGHT SETS 



SET 


TC 


ACWT 


1 


0.75 


0.25 


2 


0.50 


0.50 


3 


0.25 


0.75 
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Due to the subjective nature of MOE weight selection 
and the difficulty of determining the relative significance of 
trade-offs between ACWT and TC between various models, the 
MADM results should not be considered a solution to the 
problem. For this thesis the results were used to help 
develop criteria for selecting a model based on demand 
scenario and the decision maker's emphasis on the MOEs of TC 
and ACWT. 
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IV. SIMULATION 



A. SIMULATION STRUCTURE 

A discrete event Monte-Carlo simulation was used to obtain 
statistical estimates of the values of the measures of 
effectiveness used in the thesis. The events of the 
simulation occurred on a quarterly basis and were defined by 
the activities associated with the UICP demand process. 

The main routine of the simulation was representative of 
the actions which occur in the Navy's UICP model given the 
quarterly generated demand observations. Execution of these 
actions is controlled by two "for" loops. The outer "for" 
loop controlled the number of replications of the simulation 
to be run. The inner "for" loop performed the functions of a 
simulation clock and timing routine, where each increment of 
the inner "for" loop represented one quarter. The major 
procedures which are called in the timing routine are: Demand 
Observation Generation, Demand Forecasting, Inventory Level 
Setting (Levels), and Supply/Demand Review (SDR). A complete 
copy of the simulation is included in Appendix D (The Pascal 
code can be obtained from Navy Ships Parts Control Center, 
Code 046, Mechanicsburg, PA 17055-0788) . 
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1. Demand Observation Generation 

Demand observations for the number of quarters 
simulated, for each replication of a simulation, are generated 
using an appropriately transformed pseudo-random number 
generator. The resulting demand stream is a function of the 
probability distribution that is selected (Normal or Poisson) , 
the mean quarterly demand, and the variance of demand. The 
probability distribution, mean quarterly demand, and variance 
of demand are specified during initialization of the 
simulation. The method for generating a unique demand stream 
for each replication of a simulation is discussed later in 
this section. 

The algorithm for generating demand observations with 
a Poisson (A.) distribution was based on the relationship 

between the Poisson (^) and Exponential (l/?i) distributions 

[Ref . 23 :p . 503 ] : 

1. Let a = e‘^, b = 1, and i = 0. 

2. Generate Ui^i ~ U(0,1) and replace b by bUj^i. 

If b < a, return X = i. 

Otherwise, go to step 3. 

3. Replace i by i + 1 and go back to step 2. 

The algorithm returns X, when the (-log(Ui) ) is less than 

X (equivalently, when (Uj) < e'’^) . Because the -logdJjl's 

are exponential, they can be interpreted as the interarrival 
times of a Poisson process having rate 1. Therefore, X = XiX) 

is a Poisson random variate equal to the number of events that 
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have occurred by time X. 

The algorithm for generating demand observations with 
a Normal distribution was based on the "polar method" 

[Ref. 23 :p. 491] : 

1. Generate Uj and Uj as IID U(0,1), 

let V; = 2Uj - 1 for Vi and Vj, 
and let W = + V-J . 

2. If W > 1, go back to step 1. 

Otherwise, let Y = [ ( -21n (W) ) /W] 

Xi = VjY and X 2 = V 2 Y. 

Then Xj and X 2 are IID N(0,1) random variates. 

The Uniform (U(0,1)) random number generator used in 

the Poisson and Normal random variate algorithms is a prime 
modulus multiplicative linear congruential generator Z[i] = 
(630360016 * Z[i-1]) (mod 2147483647), based on Marse & 

Robert's portable FORTRAN random number generator UNIRAN [Ref. 
23 :p. 447]. The simulation has the capability to produce 

20,000 unique seeds for the random number generator based on 
the NXSEED function, also from Marse & Roberts [Ref. 23 :p. 
456] . Using the NXSEED function, a unique demand streams for 
each replication of a simulation is generated by reseeding the 
random number generator with a new seed prior to generating 
the next replication demand stream. A further discussion of 
seed selection and unique demand stream generation is 
contained in Section IV. B. 2. 

Because the internal execution of the Supply/Demand 
Review procedure is on a weekly basis, each quarterly random 
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demand observation is subdivided into a 13 week demand stream 
as follows: 

1. For i = 1 to 13, the demand observation for 
week(i) = 0. 

2. For i = 1 to current quarter's demand observation 

a. Generate a random uniform integer (X) from 1 to 
13 . 

b. increment the demand observation for week(X) 
by one. 

This routine randomly disperses one quarters worth of demand 
throughout the 13 weeks of a quarter. 

An option at simulation initialization is to include 
one to five trend periods and/or one to five step changes in 
mean quarterly demand (D[t], where t equals a specific 
quarter) . The trend function follows an exponential growth 
pattern of the form [Ref. 24]: 



D[t] = Wq ♦ (1+A*t(0)®) 



4.1 



Where : 

Mq = initial Trend Mean, the mean quarterly demand 
at the beginning quarter of a trend period. 

A = trend coefficient. 

t(0) = at the beginning of each trend period this 

variable is reset to one and incremented by one 
at each quarter during a trend period. 

B = trend power function. 



The number of trend periods, the quarters in which a trend 
starts and stops, and the parameters A and B for each trend 
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period are specified during initialization of the simulation. 
The step function applies a step multiplier (any non-negative 
number) to D[t-1] to determine D[t] [Ref. 24] . The number of 
steps, the quarter in which the step occurs (D[t]) and the 
step multiplier are specified during initialization of the 
simulation . 

2 . Forecasting and Inventory Levels Setting 

This part of the simulation was written to emulate, as 
closely as possible, the forecasting and cyclic levels 
application (DOl) of the UICP model. 

a. Forecasting 

NAVSUP Publication 553 [Ref. 19:Chap. 3] contains 
general background information on the forecasting application 
in the DOl application. Single exponential smoothing or a 
moving average is used to forecast mean quarterly demand, 
depending on the results of step and trend tests. Single 
exponential smoothing or a power rule is used to forecast Mean 
absolute deviation of demand (MAD) , depending on the results 
of step and trend tests. A smoothing constant of 0.01 was 
used for exponential smoothing in the simulation. 

Prior to actual computation of the next quarterly 
demand forecast, the most recent quarterly demand observation 
is examined by two processes: "step" filtering [Ref. 19:Chap. 
3]; and the Kendall trend detection test [Ref. 25]. These 
tests are used to determine if there has been a change in mean 
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quarterly demand that is significant enough to warrant 
discarding most of the historical demand data and to recompute 
the forecast using only recent data. When the process is "out 
of filter" or a trend is detected a four quarter moving 
average is used to compute the next forecasted mean quarterly 
demand. The MAD is then forecasted using a power rule [Ref. 
26] . 

Jb. Levels Computation 

NAVSUP Publication 553 [Ref. 19:Chap. 3] contains 
a description of the Levels computation application in the 
DOl. The purpose of this part of the software is to compute, 
for a given Navy managed item, the economic order quantity and 
reorder point for the next quarter. The UICP calculations for 
inventory levels were developed within the guidelines of DOD 
Instruction 4140.39. Note that these guidelines follow an 
approach used by Hadley and Whitin [Ref. 27]. The optimal 
inventory levels are determined by minimizing an average 
annual variable cost equation composed of ordering, holding, 
and shortage costs. The level setting calculations in the 
simulation are based on FMSO Level Setting Model Functional 
Description PD82 [Ref. 28] which was written by the Navy Fleet 
Material Support Office. Executable code obtained from the 
Navy Ships Parts Control Center (Code 046) was used in the 
simulation to perform the actual level setting calculations. 
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3. Supply/Demand Review (SDR) 

The SDR routine of the simulation was coded to 
replicate the UICP model when processing material receipts, 
issues, and orders. In addition, a material disposal function 
was incorporated in the routine. The disposal function occurs 
bi-annually in conjunction with inventory stratification and 
executes economic retention decisions. The events in the 
SDR routine are driven by the output from the Demand 
Observation Generation, Forecasting, and Levels routines for 
the respective quarter. The SDR routine is called once a week 
during each quarter and the events occur in the following 
sequence: material disposal (this disposal routine is used 
only during the first week of the first and third quarters of 
each year) , receiving, issuing, and ordering. In addition, 
the SDR routine calculates and records data for TWUS, ACWT, 
and total cost. 

a. Material Disposals 

A semi-annual inventory stratification was 
performed to determine the "retention level" and to calculate 
the amount of "potential excess." The economic retention 
model specified during initialization of the simulation is 
used to perform these calculations. The models available in 
the simulation are: 

- UICP 

- Optimal 

- Traditional (TRAD) 

- Net Benefit (NB) 
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- Net Benefit -Mod (NB-MOD) 

- Net Benefit-NPV (NB-NPV) 

For simulation purposes all "potential excess" is 
disposed of immediately and revenue from disposal is 
determined by multiplying the unit price of the item by the 
quantity disposed and the salvage rate (salvage rate is 
specified by the user during initialization of the 
simulation) . Total cost for the simulation period is reduced 
by the discounted revenue recognized from disposal. 

b. Material Receipt 

Outstanding reorders are maintained in a "priority 
heap" [Ref. 29 :p. 149] in order of scheduled receipt date. If 
an outstanding reorder is due in the current week, the reorder 
is removed from the outstanding reorder heap. The receipt 
quantity is applied to the outstanding backorders heap. 
Backorders are removed from the heap and filled until all the 
backorders were filled or the receipt quantity is exhausted. 
If all backorders are filled, the remaining receipt quantity 
is added to the current on-hand inventory. 

c. Material issue 

If a demand is generated in the Demand Observation 
Generation routine for the current week and the current on- 
hand inventory is sufficient to meet the requirement, then 
material is issued and the on-hand inventory is decreased by 
the amount of the demand. When the requirement is greater 
than current on hand inventory, a backorder is created for the 
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amount of the requirement in excess of current on-hand 
inventory. The backorder is inserted into the outstanding 
backorder heap, a FIFO priority heap [Ref. 29:p. 149], based 
on the date at which the backorder occurred. 

d. Material Order 

At the end of each week the inventory position 
(IP) is examined to determine if a reorder is necessary [Ref. 
19:p. 3.24/25].* If IP is less than or equal to the reorder 
point (RO) then a reorder is placed. An RO is calculated for 
each quarter in the Levels routine prior to making the weekly 
calls to the SDR routine. The reorder quantity (ROQ) equals: 



ROQ = EOQ+RO+BO-OH-OS 4 2 

Where : 

IP = OH + OS - BO 

EOQ = economic order quantity for current quarter, 
based on output from the Levels routine. 

RO = reorder point . 

BO = total backorders outstanding at the end of the 
current week. 

OH = total on hand inventory at the end of the 
current week. 

OS = total quantity of material on order at the end 
of the current week. 

A random procurement leadtime is generated at the 
time of reorder and a receipt date equal to the current date 
plus this generated procurement leadtime is assigned to the 



*SDR is currently run somewhat less frequently and less 
regularly than once a week at the Navy Inventory Control 
Points . 



50 



reorder. The reorder is then inserted into the outstanding 
reorder heap. The random procurement leadtime is based on a 
normal distribution with mean of eight quarters and variance 
of 64 quarters. The actual procurement leadtime used is 
constrained to a maximum of 14 quarters and a minimum of two 
quarters . 

B. SIMULATION SET-UP 

1 . System Parameters 

The UICP model system parameters and their default 
settings are displayed in Table 4. The default values are the 
same as those used in the UICP, Computation and Research 
Evaluation System (CARES-D56) [Ref. 30]. ‘ Although any of 
these parameters may be changed during initialization of the 
simulation, the default CARES values were used for Total Cost 
Analysis, Constant Demand Analysis, and Declining Demand 
Analysis simulations. The capability to change these default 
values was used in the Sensitivity Analysis simulations. 



'CARES is an application designed to provide ICP 
management with a tool to analyze and evaluate alternative 
inventory management policies prior to their implementation in 
UICP. 



TABLE 4 . SYSTEM PARAMETERS 



Probability Break Point: 

Min Risk(Prob of a stockout): 
Max Risk(Prob of a stockout): 
Shelf Life Code: 

Order Cost Rate: 

Obsolescence Rate: 

Unit Price: 



0 

0.10 

0.35 

0 

400 . 00 : $/order 
0 . 12 : $/unit-yr 
1500 . 00 : $/unit 
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Time Preference Rate: 
Salvage Rate: 

Storage Rate: 
Procurement LeadTime: 
Shortage Cost: 
Military Essential: 
Requisition Size: 



1000 . 00 : $/unit-yr 
0.50 



0.07:%lYr 
0.02: %/unit price 
0 . 01 : $/unit-yr 
8 . 00:qtrs 



1 : unit /requisition 



2 . Random Number Seeds 

As discussed in Chapter IV. A. 1 there is an array of 
20,000 seeds available to seed the random number generator for 
each replication of a simulation. During the initialization 
of the simulation any series of seeds in the array equal to 
the number of replications can be chosen. For example, in a 
100 replication simulation, the series of seeds from 1 to 100, 
900 to 999 or 10001 to 10100 can be specified, as long as the 
starting seed position in the array is less than or equal to 
20,000 minus the number of replications for the simulation. 
The purpose of this feature is to allow for generation of 
dependent or independent output samples from two or more 
simulations. The importance of this feature is that it 
affects the type of statistical test which may be performed 
when comparing the output from two or more simulations. 



for all simulations run within each setting. This was 
accomplished by specifying the same series of seeds for demand 
stream generation for each simulation in a setting. Using 
dependent demand streams for performance comparisons allows 
for the comparison of the models in a similar demand 



For this thesis, dependent output samples were created 
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environment. However, the analysis must be done using a 

statistical test for dependent samples such as the paired 
difference t-test. If independent samples are desired, each 
simulation would have to be run using a unique series of 
seeds . 

3. Number of Replications 

In order to obtain reasonable precision in the 
confidence intervals for the estimates of ACWT and total cost, 
the absolute error method [Ref. 23 :p. 536] was used to 
determine the total number of replications to run. By using 
the absolute error method with a simulation run consisting of 
400 replications, absolute errors were obtained of no more 
than 20% of the true mean ACWT and no more than 7.5% of the 
true mean total cost with a probability of 0.95. Based on 
these results, 500 replications were used in all simulations. 
This yielded an absolute error of no more than 15% for the 
true mean ACWT and no more than 5% for the true mean Total 
Cost with a probability of 0.95. Although the error for ACWT 
may appear rather high, the error, when measured in days, was 
typically less than two days. 

4. Initial Conditions Warm-up Period for Declining Demand 

Analysis 

Inherent in the simulation of a stochastic process is 
the initial transient or the start-up problem. The difficulty 
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is in determining the warm-up period for a model. The warm-up 
period covers the time it takes for the means of the random 
variables being measured in a simulation to converge to their 
steady state values. 

We employed the "graphical procedure" that is due to 
Welch [Ref. 23:p.544] to identify when the simulation 
approached steady state. The Welch procedure is applied to 
each demand scenario. The Welch graphs (Appendix E, Graphs 7 
- 12) were generated from data that was obtained from a 100 
replication, 80 quarter simulation. The steady state random 
variable shown in the graphs is the investment (measured in 
units) in a given quarter, averaged over all replications. 
Investment in this case is the number of units on-hand plus 
the number of units in outstanding orders at the end of a 
quarter. Investment was chosen because it most accurately 
reflects the balance between material issuing and ordering and 
when the inventory system has reached equilibrium or steady 
state. Based on Graphs 7 - 12 in Appendix E, it was 
determined that the simulated model reaches steady state with 
respect to investment by quarter 30 at the latest for all 
demand scenarios. 

The amount of time the random variable's mean remains 
in a transient state is affected by the initial conditions of 
the simulation. In an effort to reduce the warm-up period, 
the following logic was used to determine the initial on hand 
quantity, and to schedule receipt dates and quantities for 
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reorders outstanding at the start of the simulation. The 
initial quantity of on hand inventory is set equal to EOQ 
divided by 2 plus safety stock [Ref. 17 :p. 275] . Safety stock 
is set equal to the reorder point minus the forecasted 
leadtime demand [Ref. 19:Chap. 3]. The number of reorders 
outstanding at the start of the simulation is set equal to the 
expected number of reorders outstanding at any instant of time 
for the deterministic setting. This number equals the 
procurement leadtime divided by a reorder interval (using a 
0.5 rounding rule), where a reorder interval equals the EOQ 
divided by the forecasted quarterly demand [Ref 31:p. 93]. 
For all simulations the EOQ, reorder point, and forecast for 
quarter one is used to calculate these initial conditions. 
The receipt dates of the reorders outstanding are uniformly 
distributed from simulation time zero to simulation time zero 
plus one procurement leadtime, and the quantity of each 
reorder outstanding was set equal to the EOQ for quarter one. 
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V. 



SIMULATION RESULTS 



A. OVERVIEW 

This chapter will discuss the simulation results from the 
Total Cost, Constant Demand and Declining Demand Analysis. 
Total cost curves generated from the Total Cost Analysis are 
presented in Appendix E, Graphs 13-24. The simulation results 
and MADM analysis from the Constant Demand Analysis and the 
Declining Demand Analysis are presented in Appendices A and B, 
respectively. The remainder of this chapter will discuss the 
general results of each Analysis based on the goals of the 
Analysis. In addition, specific observations which deserve 
further analysis will be examined. 

B. TOTAL COST ANALYSIS 

The goal of this particular analysis was to determine if 
a minimum Total Cost (TC) associated with a single retention 
level ( symbolized by to or RL ) existed in a stochastic 
demand environment as Tersine showed for the deterministic 
case [Ref. 14]. Assuming a minimum TC exists, an optimal 
retention level (to) for each demand scenario in the Total 
Cost Analysis setting was determined that minimizes the 
respective TC. 

The results of the Total Cost Analysis simulations show 
that the TC curve for each demand scenario simulated is a 
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parabola (Appendix E, Graphs 13 to 24). While the high unit 
price demand scenario TC curves had an easily identifiable 
minimum point, the low unit price demand scenario TC curves 
tended to be flat in the vicinity of the minimum. This 
indicates that for the low unit price settings there may be a 
range of retention levels that yield statistically equivalent 
minimum total costs. In addition, finding the best to for the 
low unit price settings may involve other MOEs such as ACWT. 

Although all the total cost curves for the demand 
scenarios simulated are parabolas, an interesting 
characteristic in the TC curve for the LDLP demand scenario 
can be observed (Appendix E, Graphs 18 and 24). There is a 
"step" in the TC curve and specifically in the Total Order 
Cost curve at a retention level of approximately 3.5 years 
annual demand. The initial inventory position (IP) at time 
zero after disposal of excess inventory, for a retention level 
less than 3.5 years, was below the time zero reorde* point 
(RO) (the RO is depicted by the vertical line in G is 18 
and 24) . This caused an additional reorder to be placed 
during the simulation period for all retention levels less 
than 3.5 years. The "step" down in the total order cost curve 
occurred after the retention level exceeded 3.5 years because 
an additional reorder was not placed at time zero. The 
magnitude of the "step" down was due to the high 
administrative order cost ($850/order) in relation to the low 
unit price ($20/unit) and low mean quarterly demand (2 units/qtr) . 
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since the TC curves were parabolas, the next step in the 
Total Cost Analysis was to determine the respective optimal 
retention level (to) that minimized TC for each demand 
scenario in the Total Cost Analysis settings. For this 
analysis the optimal retention level was defined as the 
arithmetic mean of the retention levels which resulted in the 
minimum total cost for each of the 500 replications of the 
respective demand scenario simulation. The optimal inventory 
level to, was calculated as follows: 



n 




5.1 



Where : 

i = index for a replication of a simulation, 
n = total number of replications of a simulation, 
ti = retention level which resulted in the minimum TC 
for a specific replication of a simulation. 

The to values are presented in Table 5 under Alternative A. 

The to values represent years worth of demand at the 

forecasted annual demand rate. 

In order to test the sensitivity of to to different 

initial inventory amounts, the simulations for the Total Cost 

Analysis settings were rerun with an initial inventory of 75 

years worth of annual demand. The results of these 

simulations are shown in Table 5 under Alternative B. The 

results presented in Table 5 indicate that to is very robust 

with respect to initial inventory. 
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TABLE 5 . 



TOTAL COST ANALYSIS OPTIMAL RETENTION LEVELS 



Demand 

Stream 


ALTERNATIVE 


A 


R. 


to 


C.I. 


to 


C.I . 


HDHVHP 


6.7 


±0.35 


6 ."J 


±0.62 


HDLVHP 


5.6 


±0.12 


5.5 


±0.23 


HDHVLP 


10 . 6 


±0 . 61 


10.1 


±1.10 


HDLVLP 


8.4 


±0.25 


8.3 


±0.48 


LDHP 


6.4 


±0.25 


6.3 


±0.50 


LDLP 


16.3 


±0.44 


15.8 


±0.88 



(C.I. IS a 95% confidence interval on to) 



To summarize, the initial results indicate that a to 
exists for each demand scenario simulated, and the value of to 
varies considerably with respect to unit price, mean quarterly 
demand and variance of demand. The following correlation 
between to and unit price, mean quarterly demand and variance 
of demand in a stochastic environment can be developed. As 
unit price increases to decreases, as mean quarterly demand 
increases to decreases, and as variance of demand increases to 
increases . 

C. CONSTANT DEMAND ANALYSIS 

The goal of this analysis was to observe the performance 
of the various proposed models under the same conditions used 
in the Total Cost Analysis. We hoped to draw some conclusions 
about the performance of these models in a stochastic 
environment by comparing the performance of the models to the 
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appropriate optimal retention levels (to) obtained from the 
Total Cost Analysis. 

Simulation and performance comparison results are 
presented in Appendix A. ACWT and TC values that appear in 
bold print in Appendix A indicate these values are 
statistically equal to or less than the respective optimal 
value, based on the paired difference t-tests conducted in the 
performance comparison. 

Table 6 summarizes the results of the performance 
comparison. The table is designed to be a decision tool to 
assist in determining which models might be appropriate for a 
specific demand scenario with respect to the relative weight 
that management places on the MOEs of TC and ACWT. Entries in 
Table 6 indicate which models were the best performers for a 
specific combination of demand scenario and MOE weighting. 



TABLE 6 . CONSTANT DEMAND ANALYSIS SUMMARY RESULTS 

AND DECISION TABLE 



DEMAND SCENARIO 


M C 


) E W 


E I G H 


TING 


Mean 

Demand 


Demand 

Variance 


Unit 

Price 


Total 
Cost (TC ) 


Mostly 

TC 


Equal 

TC/ACWT 


Mostly 

ACWT 


ACWT 


High 


High 


High 


3 


3,5 


1,3,5 


1 


1 






Low 


1 


1 


1 


1 


1 




Low 


High 


2 


2-4 


1,3,5 


1 


1 






Low 


3,5 


3,5 


3,5 


1-5 


0-5 


Low 




High 


3 


2,3 


1-5 


1 


1 






Low 


4 


4 


1-4 


2,3 


3 



Legend: 1 = TRAD, 2 = NB, 3 = NB-MOD, 4 = NB-NPV, 5 = UICP 
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While no single model's RL consistently matched the 
optimal retention level, the NB-MOD model performed the best 
across all demand scenarios. Additionally, there was 
typically at least one model's RL which matched the optimal 
for each demand scenario. 

The RL for the TRAD model remained constant for all demand 
scenarios because mean quarterly demand, unit price, and 
demand variance are not parameters in the calculation of the 
TRAD model's RL. The RLs for the "net benefit" models as a 
group behaved the same as the optimal with respect to changes 
in mean quarterly demand and unit price as discussed in the 
Total Cost Analysis results. Changes in demand variance had 
little effect on the RLs of the "net benefit" models, most 
likely because demand was assumed to be deterministic in the 
derivation of the basic net benefit equation. 

The following general observations can be made from the 
performance comparison results. Based solely on TC, there was 
usually one model which obtained the true optimal solution. 
The only exception was for the HDLVHP demand scenario in which 
no model had a TC which was statistically equal to the true 
optimal solution. This can most likely be explained by the 
fact that the total cost curve for the HDLVHP demand scenario 
(Appendix E, Graph 14) has the most distinct minimum point on 
its curve as compared to the other demand scenario total cost 
curves. This argument is also supported by the fact that the 
confidence interval about the optimal retention level for the 
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HDLVHP demand scenario is the smaller than the confidence 
intervals of the other demand scenario optimal retention 
levels (Chapter V, Table 5) . 

When taking into account ACWT and TC there were generally 
several models which performed as well as or better than the 
optimal, with the NB-MOD model being the most consistent top 
performer. The TRAD model consistently had a higher RL and 
was the best performer with respect to ACWT for all demand 
scenarios except HDLVLP and LDLP. For the latter two demand 
scenarios the difference between all the models' respective 
ACWTs ’ was insignificant. 

It is interesting to note that under the HDHVLP and LDLP 
demand scenarios the TRAD and NB-NPV models had lower average 
total costs than the respective optimal solution. The lower 
TC for the two models could be expected due to the fact that 
both the HDHVLP and the LDLP TC curves (Appendix E, Graphs 15 
and 18) from the Total Cost Analysis were flat in the vicinity 
of the minimum TC point on the curve. After further analysis 
it was determined that the calculated optimal retention level 
for the HDHVLP and the LDLP demand scenarios may vary 
depending on how optimality was defined in the Total Cost 
Analysis. In light of the HDHVLP and LDLP results an 
alternative definition of the optimal retention quantity was 
developed. 

In the Total Cost Analysis the optimal retention level, to 
for each demand scenario in Chapter V Table 5 (Alternate A) 
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was defined as the arithmetic mean of the retention levels 
which resulted in the minimum total cost for each of the 500 
replications of the respective demand scenario simulation. 
The revised optimal retention level (t*) was defined as the 
retention level associated with the arithmetic mean of the 
minimum total costs of all the replications of the respective 
demand scenario simulation. The revised optimal retention 
level t* was calculated as follows: 



XI 




5.2 



t* = argmin "CV 

ter 



5.3 



Where : 

= the average TC for a specific retention level 
across all replications of a simulation. 

Cti = the TC for a specific retention level and a 
specific replication of a simulation, 
t = a specific retention level simulated. 

T = the set of all retention levels simulated (0.0, 
0.5, 1.0, 1.5, ,m) 

m = initial on hand inventory prior to disposal . 
i = index for a replication of a simulation, 
n = total number of replications of a simulation. 



Table 7 presents the to and t* values for all demand 
streams. The values for t* tended to be greater for the HDHVLP 
and LDLP demand scenario, and were also closer to the 
respective retention levels obtained from the TRAD and NB-NPV 
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For the HDHVLP 



models than to the respective values for to- 
demand scenario this quantity was 13 years and for the LDLP 
demand scenario this quantity was 17 years. It should be noted 
that the differences between the respective t* for the 
remaining demand scenarios and the optimal to were not 
statistically significant. 



TABLE 7 . OPTIMAL RETENTION LEVELS CALCULATION ANALYSIS 





A L T E R N 


A T I V E 


Demand 

Streaon 


■ to 


t* 




to 


C.I. 


t* 


C.I. 


HDHVHP 


6.7 


in 

CO 

• 

o 

+1 


7.0 


+ 2.0 


HDLVHP 


5.6 


H 

O 

+1 


5.5 


± 0.5 


HDHVLP 


13. e 


+ 0.61 


13.0 


± 3.0 


HDLVLP 


8.4 


± 0.25 


8.5 


+ 1.5 


LDHP 


6.4 


± 0.25 


6.5 


± 1.0 


LDLP 


16.3 


o 

+1 


17.0 


± 1.0 



(C.I. is a 95% confidence interval) 



The difference between to and t* for the HDHVLP and LDLP 
demand scenarios can be attributed to backorders which 
occurred when the Total Cost Analysis optimal quantity, to, 
was retained and which did not occur when the t* quantity was 
retained. The backorders occurred in approximately 10% to 15% 
of the replications of the Constant Demand Analysis 
simulations due to large spikes in observed demand between 
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quarters 30 and 55. However, the extra stock held when t* was 
retained was sufficient to satisfy this increased demand. 
Because the two demand scenarios were low unit price 
($20/unit) scenarios, the high shortage cost ($1500/unit year 
of shortage) tended to dominate TC. Therefore when these 
backorders occurred, the TC for the to retention level 
increased by 120% to 150% and was significantly higher than 
the TC for the t* retention level. This tended to force the 
simulation average minimum TC out to t*. 

It should be noted that for 85% to 90% of the Constant 
Demand Analysis simulation replications the to retention level 
resulted in the minimum TC. Additionally, over an entire 
simulation the average total costs for the HDHVLP and LDLP 
demand scenarios and the TRAD and NB-NPV models, respectively, 
were statistically equal to the respective average optimal 
total cost based on the to retention level. 

In summary, it is difficult to conclude whether to or t* 
better defines the optimal retention quantity for the HDHVLP 
and LDLP demand scenarios. Although there is a significant 
difference between t' and t* for the HDHVLP and LDLP demand 
scenarios, the average total costs which result from the two 
retention levels are statistically equivalent. 

D. DECLINING DEMAND ANALYSIS 

The goal of this analysis was to compare the models in a 
scenario that involved declining mean quarterly demand. For 
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this analysis, simulation and performance comparison results 
are presented in Appendix B. ACWT and TC values that appear 
in bold print in Appendix B indicate the values which were the 
best performers from among the five models. When more than 
one value is in bold print this indicates that the values were 
statistically equivalent based on the paired difference t- 
tests . 

The values for TC and ACWT shown in Appendix B were 
accumulated over quarters 30 through 66 in the respective 
Declining Demand Analysis simulations. Data for TC and ACWT 
was originally collected for the full 66 quarters of each 
Declining Demand Analysis simulation. The results using the 
full 66 quarters of data were significantly affected by the TC 
and ACWT data collected during quarters 1 through 29 when mean 
quarterly demand was constant. In general, the results 
showed that the performance of all of the models was 
statistically equal when the full 66 quarters of data were 
used. Therefore, in order to get a more accurate picture of 
the effect each model's RL had on the its TC and ACWT during 
the declining demand period, data for the performance 
comparison was collected for quarters 30 through 66 only. 

Table 8 summarizes the results of the performance 
comparison. The table is designed to be a decision tool to 
assist in determining which models might be appropriate for a 
specific demand scenario with respect to the relative weight 
management places on the MOEs of TC and ACWT. Entries in 
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Table 8 indicates which models were the best performers for a 
specific combination of demand scenario, pattern of declining 
demand and MOE weighting. 



TABLE 8. DECLINING DEMAND ANALYSIS SUMMARY RESULTS 

AND DECISION TABLE 



DEMAND SCENARIO 


MOE WEIGHTING 


Mean 

Demand 


Demand 

Variance 


Unit 

Price 


Decline 

Pattern 


Total 
1 Cost 


Mostly 

TC 


Equal 

TC/ACWT 


Mostly 

ACWT 


ACWT 


High 


High 


High 


Step 


4 


2,4 


2,4 


2-5 


1,5 


Convex 


4 


2,4 


2,4,5 


2,5 


1,5 


Concave 


4 


2,4 


2-4 


3,4 


1,5 


Low 


Step 


2-4 


3 


3 


3 


3 




Convex 


3 


3 


3 


3 


3 


Concave 


2-4 


3 


3 


3 


3 


Low 


High 


Step 


4 


4 


4 


4 


1-5 


Convex 


4 


4 


4 


4 


1-5 


Concave 


4 


4 


4 


4 


1-5 


Low 


Step 


5 


5 


5 


5 


1-5 


Convex 


1,4 


1,4 


1,3 


1,4 


1-5 


Concave 


5 


5 


5 


5 


1-3,5 


Low 


High 


Step 


2-4 


1,4 


1,3 


1,3 


1,3 


Convex 


2,4 


2,3 


1-3 


1,3 


1 


Concave 


2,4 


2,3 


2,3 


1,4 


1 


Low 


Step 


2-4 


2-4 


2-4 ! 


2-4 


1-4 


Convex 


1-4 


2-4 


2-4 


1-4 


1-4 


Concave 


4 


4 


4 


1-5 1 .-5 



Legend: 1 = TRAD, 2 = NB, 3 = NB-MOD, 4 = NB-NPV, 5 = UICP 



The following general observations can be made from the 
results of the performance comparison. No one model dominated 
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across all demand scenarios based on TC alone. 



For the 



"mostly TC" and "mostly ACWT" categories of management 
emphasis, the NB-MOD and the NB-NPV models were consistently 
top performers regardless of demand scenario and pattern of 
declining demand. For the "only TC" category of management 
emphasis, the NB-NPV model was consistently a top performer 
regardless of demand scenario and decline pattern. Similar to 
the correlation seen in the Total Cost Analysis between the 
changes in the RL and changes in demand, the RLs for the "net 
benefit" models increased as demand decreased during the 
simulation's period of declining mean quarterly demand. The 
increases were most apparent for the low unit price scenarios. 
Because the RLs for the "Net Benefit" models were changing 
throughout the Declining Demand Analysis simulations, the 
retention levels shown in the Declining Demand Analysis 
results (Appendix B) represent the average RL over quarters 30 
through 66. Graphical illustrations of the change in the RLs 
for all of the demand scenarios and patterns of declining 
demand are shown in Appendix E, Graphs 25 to 42. 

There are several noticeable effects on the RL 
calculations made during periods of declining demand, using 
the "net benefit" models. The effects can be attributed to 
the demand forecasting method used in UICP and the use of the 
forecasted demand in the RL calculations. First, there is a 
lag between the time the declining demand period starts and 
the time the RL reacts to the changing demand. This lag is 
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directly correlated to the lag between the time the actual 
demand changes and the time the forecasted demand reflects 
this change. 

Second, the step-ups in RLs for the demand scenarios with 
high quarterly mean demand (Graphs 28 to 33 and 37 to 42) 
occurred when a "trend" (declining demand) was detected by the 
UICP demand forecasting application. When a "trend" is 
detected, demand forecasting switches from simple exponential 
smoothing to a four quarter moving average. This change in 
forecasting method caused the forecasted demand, reorder 
quantity (EOQ) and reorder point to drop rapidly, which in 
turn resulted in the step increases in the RLs. The step is 
more prominent in the demand scenarios with a convex pattern 
of declining demand. This is due to the fact that the 
decrease in demand was more rapid for the convex pattern of 
declining demand and the final forecasted quarterly demand was 
approximately one unit per quarter less than the concave and 
step patterns of declining demand. 

Third, the steps down in the RLs for the demand scenarios 
with low mean quarterly demand and high unit price (Graphs 25 
to 27) occurred when actual demand approached zero at the end 
of the declining demand period and the forecasted demand had 
not yet stabilized. For some simulation replications, several 
quarters of zero demand, in sequence, were observed when 
actual mean quarterly demand was close to zero after the 
period of declining demand. For these replications and 
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quarters this caused the forecasted demand and the RLs to go 
to zero. Therefore, the simulation average RLs for those 
quarters were lower than the average RLs for the remaining 
quarters. When the demand forecast stabilized about the final 
mean quarterly demand, the RLs also stabilized. 

Finally, the RLs for the NB-MOD model in the demand 
scenarios with high mean quarterly demand and high unit price 
did not increase as expected when demand decreased (Graphs 28 
to 33). This can be attributed to the decrease in expected 
number of shortages as demand decreased. The NB-MOD model RL 
(Equation 2.24) is a function of the NB model RL (Equation 
2.13) plus a term added to account for potential shortages. 
As seen in Graphs 28 through 33 the NB model RLs were 
increasing as demand decreased. Because the NB-MOD model RLs 
are decreasing in these same scenarios, this indicates that 
the increase in the RLs due to the decrease in demand was more 
than offset by the reduction in the RLs due to the decrease in 
expected number of shortages. 

A specific observation which warrants further discussion 
is the effect that the five unit minimum Retention Quantity 
(RQ) constraint (used in the UICP retention logic) has on the 
results of simulations involving low mean quarterly demand. 
The Declining Demand Analysis simulations were originally run 
with only the UICP model constrained to a minimum RQ of five 
units. As a result, when forecasted annual demand approached 
zero at the end of the declining mean quarterly demand period. 
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the UICP RQ remained fixed at five units while the 
unconstrained RQs for all of the mathematical models 
approached zero. In essence, without the constraint the 
mathematical models' RQ stayed at zero regardless of how large 
the respective RLs were. Additionally, while the UICP RQ 
remained a five units, the RL grew substantially. Based on 
preliminary results it became apparent that the five unit 
minimum retention quantity gave the UICP a significant 
advantage over the other models with regard to total cost and 
average customer wait time. The five unit minimum retention 
quantity was then applied to all the models and the Declining 
Demand Analysis simulations were rerun to determine what 
effect this constraint would have. We found that this minimum 
retention quantity improved the performance in both the TC and 
ACWT MOEs for all of the models and these results were used to 
make the final performance comparison presented in Appendix B 
and Table 8 . 
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VI. SENSITIVITY ANALYSIS 



A . OVERVIEW 

The sensitivity analysis was designed to determine how 
changes in selected parameter values affect the retention 
levels of the respective models. The parameters used in this 
analysis were chosen because it is extremely difficult to 
accurately estimate the parameter values from available 
historical costs. The estimates for these rates could be 
somewhat inaccurate because the historical costs associated 
with a given parameter are either not available or not easily 
allocated to the individual items. Therefore, it is important 
to determine how each model reacts to changes in these rates. 
The goal of the sensitivity analysis is to identify which 
model's RL calculations are robust with respect to changes in 
the various parameter values. This information should aid 
decision makers in the selection of an appropriate model based 
on the level of uncertainty in the value of a specific 
parameter. In addition to the robustness of the RL ‘ s of the 
models based on changes in a given parameter, we will also 
look at the robustness of the model's performance, with 
respect to TC and ACWT for four specific scenarios from the 
Declining Demand Analysis. 

The sensitivity analysis was conducted for two demand 
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scenarios (HDHVHP and LDHP) and two declining demand patterns 
from the Declining Demand Analysis (convex and concave) . For 
each combination of demand scenario and declining demand 
pattern, four parameters were analyzed. For each parameter 
four values (including the UICP (CARES) default rates used in 
the Declining Demand Analysis) were used. Table 9 summarizes 
the 16 simulation settings which resulted from combinations of 
demand scenario, declining demand pattern and parameter 
values. For a specific setting all other parameters and 
simulation characteristics were identical to those used in the 
Declining Demand Analysis for the respective demand scenario 
and declining demand pattern. 

TABLE 9 . 16 SENSITIVITY ANALYSIS SIMULATION SETTINGS 



OBSOLESCENCE 

RATE 


SALVAGE 

RATE 


HOLDING COST 
RATE 


ORDER COST 
RATE 


0.06 

$/UNIT-YR 


0.01 

^/UNIT COST 


0.01* 

$/UNIT-YR 


200 

$/ORDER 


0.09 

$/UNIT-YR 


0.02* 

^/UNIT COST 


0.03 

$/UNIT-YR 


400 

$/ORDER 


0.12* 

$/UNIT-YR 


0.05 

%/XJNIT COST 


0.05 

$/UNIT-YR 


800* 

$ /ORDER 


0.15 

$/UNIT-YR 


0.15 

96/unit cost 


0.07 

$/UNIT-YR 


1200 

$/ORDER 



(* Denotes UICP (CARES) default value) 



B . RESULTS 

Simulation and performance comparison results are 
presented in Appendix C. The ACWT and total cost in bold 
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print indicate the value which is the best performer in its 
respective MOE category. When more than one value is in bold 
print this indicates that the values were statistically 
equivalent based on the paired difference t-test. Table 10 
and Table 11 summarize the effects the varying rates had on 
each model ' s RL for the HDHVHP demand scenario and the LDHP 
demand scenario, respectively. 

In general, based on the results displayed in Tables 10 
and 11 the following observations can be made with regards to 
the sensitivity of the RL's of the models to changes in a 
given parameter. All models were robust with respect to 
changes in order cost rate and the three "net benefit" models 
were robust with respect to changes in the holding cost rate. 
The TRAD model was sensitive to changes in holding cost rate 
and all models showed sensitivity to changes in obsolescence 
rate. The type of demand scenario had little effect on the 
RL's for all of the models. 

Observations regarding the sensitivity of the models due 
to changes in a given parameter value are summarized in Table 
12. The observations in Table 12 indicate the effect of 
changes in a given parameter value for a specific demand 
scenario and pattern of declining demand on the performance of 
the various models. For each parameter, the respective UICP 
(CARES) default parameter value was used as the comparison 
baseline. The following types of observations were made. 
Observation type 0 means no significant change occurred in a 
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TABLE 10 



RANGE OF AVERAGE RL 



HDHVHP SCENARIO 



Rate 


Decline 


Rate 


TRAD 


NB 


MOD 


NPV 


UICP 


Holding 


Convex 


Low 


13,9 


5.4 


7.1 


6 . 0 


8.0 


Cost 




High 


4 , § 


4.2 


6 . $ 


4. 0 


8.0 




Concave 


Low 


13.9 


5.4 


6 . 9 


5.3 


8.0 






High 


6.2 


4.2 


5.5 


4.2 


8.0 


! 

Order 


Convex 


Low 


13.9 


5.3 


6 . 9 


4.9 


8.0 


Cost 




High 


13.9 


€.$ 


7.2 


6 . 8 


8.0 




Concave 


Low 


13.9 


5.3 


6 . 8 


4.9 


8.0 






High 


13.9 


5.4 


5.4 


5 .C 


8.0 


Obsolete 


Convex 


Low 


13.3 


7.6 


9.4 


6 . 8 


8.0 






High 


12.3 


4.3 


6.3 


3.4 


8.0 ' 




Concave 


Low 


13.3 


7.6 


6 . 9 


6 . 8 


8. 0 






High 


12.3 


4.2 


5.4 


4.4 


8.0 


: Salvage 


Convex 


I 


14.7 


5.5 


7.1 


6 . 8 


8.0 






Hign 


6 . $ 


4. 6 


6 . 9 


6.3 


8.0 




Concave 


Low 


14.7 


5.4 


6.9 


5.0 


8. 0 






High 


9.5 


4.7 


6.2 


4.3 


8.0 
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TABLE 11 



RANGE OF AVERAGE RL 



LDHP SCENARIO 



Rate 


Decline 


Rate 


TRAD 


NB 


MOD 


NPV 


UICP 


Holding 


Convex 


Low 


13.9 


5.2 


6.5 


5.4 


8.0 


Cost 




High 


4.$ 


4.8 


5.2 


4.8 


8.0 




Concave 


Low 


13.9 


4.$ 


7.2 


5.4 


8.0 






High 


6. 7 


5.0 


6 . 7 


6. 7 


8.0 


Order 


Convex 


Low 


13.9 


5.4 


4.$ 


5.4 


8.0 


Cost 




High 


13.9 


4.0 


5.6 


5. 6 


8.0 




Concave 


Low 


13.9 


5. 7 


5. 6 


5.4 


8.0 






High 


13.9 


5.6 


7.5 


6.4 


8.0 


Obsolete 


Convex 


Low 


18.6 


5.2 


4.8 


7.1 


8.0 






High 


12.3 


5.4 


5.4 


4 . 8 


8.0 




Concave 


Low 


13.3 


4.$ 


4.8 


7. 7 


8.0 






High 


12.3 


5.6 


6.4 


5.8 


8.0 


Salvage 


Convex 


Low 


14.7 


5.2 


5.6 


5.5 


8.0 






High 


4.$ 


5.2 


5.4 


4.7 


8.0 




Concave 


Low 


14.7 


6.3 


7.3 


5.9 


8.0 






High 


8.5 


5. 7 


6. 6 


5.1 


8.0 
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model's performance. Observation type 1 occurred when a 
model's performance improved for parameter values greater than 
the respective UICP (CARES) default parameter value. 
Observation type 2 occurred when a model's performance 
improved for parameter values less than the respective UICP 
(CARES) default parameter value. Observation type 3 occurred 
when a model's performance declined for parameter values 
greater than the respective UICP (CARES) default parameter 
value. Observation type 4 occurred when a model's performance 
declined for parameter values less than the respective UICP 
(CARES) default parameter value. 

Based on the results displayed in Table 12 the following 
general observations with regards to the sensitivity can be 
made. The performance of the NB and NB-MOD models was robust 
with respect to changes in all parameter values for all 
scenarios. The performance of the UICP model was sensitive to 
changes in all parameters values, except salvage rate, for all 
LDHP scenarios . The performance of the TRAD model tended to 
improve with both increases and decreases in the obsolescence 
rate and salvage rate parameter values for all HDHVHP 
scenarios. The NB-NPV model's performance tended to decline 
for salvage rate parameter values greater than the UICP 
(CARES) default value in both the LDHP and HDHVHP scenarios. 
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TABLE 12 . SENSITIVITY ANALYSIS PERFORMANCE OBSERVATIONS 



Rate 


Decline 


Demand 


TRAD 


NB 


MOD 


NPV 


UICP 


Holding 


Convex 


LDHP 


0 


0 


3 


0 


4 


Cost 




HDHVHP 


0 


0 


0 


0 


0 




Concave 


LDHP 


0 


0 


1 


0 


4 






HDHVHP 


0 


0 


0 


0 


0 


Order 


Convex 


LDHP 


0 


0 


0 


0 


4 


Cost 




HDHVHP 


0 


0 


0 


0 


0 




Concave 


LDHP 


0 


0 


0 


0 


3 






HDHVHP 


0 


0 


0 


0 


0 


Obsolete 


Convex 


LDHP 


0 


0 


0 


0 


4 






HDHVHP 


2 


0 


0 


0 


0 




Concave 


LDHP 


0 


0 


4 


0 


4 






HDHVHP 


§ 


0 


0 


0 


0 


Salvage 


Convex 


LDHP 


0 


0 


0 


3 


0 






HDHVHP 


1 


0 


0 


0 


0 




Concave 


LDHP 


0 


0 


0 


3 


0 






HDHVHP 


1 


0 


0 


3 


1 



The sensitivity analysis can be summarized as follows. 
Although the RL for the TRAD model displayed the most 
sensitivity to changes in the parameter values analyzed, it 
had little effect on the performance of the TRAD model as 
compared to all other models analyzed. The UICP model 
performance displayed the most sensitivity to changes in the 
parameter values analyzed. 
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VII. OVERVIEW, CONCLUSION AND RECOMMENDATIONS 



A . OVERVIEW 

This thesis evaluated the effectiveness of the Navy's UICP 
economic retention model. The evaluation was performed by 
comparing several mathematical economic retention models with 
the Navy's retention model. There were two primary factors 
that motivated this thesis. First, the Navy does not 
currently apply economic retention theory when making 
retention decisions for the majority of the material managed 
by the Navy. Second, the excess inventory problem will 
continue to grow as the Navy's budget and fleet are further 
reduced. 

An analysis of the models was performed for a variety of 
demand scenarios in both steady state and declining demand 
situations. The analysis was designed with two goals in mind. 
The first goal was to determine which model (s) were most 
effective in a demand environment similar to the Navy's 
stochastic demand environment. The second goal was to 
evaluate how the Navy's retention process performed with 
respect to the mathematical models. 

A simulation of the Navy's UICP demand process and the 
mathematical retention models was developed. The evaluation 
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of the various models was based on the measures of 
effectiveness (MOE) of total cost (TC) over a specified period 
of simulation time and average customer wait time (ACWT) per 
requisition for all requisitions generated over a specified 
period of simulation time. The research also examined model 
sensitivity to changes in various parameters common to the 
models. The parameters were chosen for the analysis because 
UICP uses estimates of the true rates and these estimates 
could vary considerably from the true rates. Results of the 
sensitivity analysis helped to determine the practicality of 
applying the models in the UICP environment. 

B. CONCLUSION 

The findings of this research showed that, of the models 
analyzed, there was not one economic retention model or 
retention quantity which yielded the lowest total cost and 
ACWT for all of the demand and retention scenarios analyzed. 
There were two factors which contribute to this. First, the 
optimal retention level varied significantly with demand 
scenario and management weighting of the MOEs of TC and ACWT. 
Second, all the models analyzed did not account for the 
stochastic nature of demand for Navy managed items. But, 
based on the results of all analysis, the "net benefit" 
models, as a group, performed the best and generally performed 
better than the UICP retention model. Additionally, for most 
demand scenarios in both the Constant and Declining Demand 
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Analysis, the decision on which model to chose could typically 
be determined by total cost alone. This was due to the fact 
that the difference in the models' ACWTs (measured in days) 
for each demand scenario, were generally small. 

The results of the Total Cost Analysis showed that there 
was a unique “optimal" retention level for a given demand 
scenario in a stochastic demand environment. It also showed 
that the "optimal'' retention level varies significantly with 
changes in unit price, mean quarterly demand and variance of 
mean quarterly demand. 

The Constant Demand Analysis compared the models to the 
"optimal" retention level determined in the T.'tal Cost 
Analysis. In general, when considering both TC and ACWT the 
mathematical models performed well in the Navy's stochastic 
demand environment with respect to the performance obtained 
from the "optimal" retention level. Additionally, there was 
typically at least one model which performed as well as the 
"optimal" retention level with respect to TC alone. The NB 
and NB-MOD models consistently outperformed the UICP model 
when management emphasis was placed on total cost or mostly on 
total cost . 

The results of the Declining Demand Analysis indicated 
that the "net benefit" mode’s, as a group, were the best 
performers over all scenarios and typically outperformed the 
UICP retention model. The average retention quantities of the 
best performers in the Declining Demand Analysis varied with 
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changes in the unit price, mean quarterly demand and the 
variance of mean quarterly demand in a pattern similar to that 
observed in the Total Cost Analysis for the "optimal" 
retention level. The declining demand pattern had little 
effect on overall model performance. 

The performance of the TRAD model dominated the 
performance of the other models across all analysis scenarios 
with respect to ACWT. But the performance of the NB, NB-MOD 
and UICP models was competitive with respect to ACWT in most 
of the Declining Demand Analysis scenarios. It is important 
to note that while there was generally a significant variation 
in ACWT in terms of percentage difference, in most cases the 
difference in terms of days was typically small. This 
observation applies to both the Constant and Declining Demand 
Analysis . 

The results from the sensitivity analysis showed that the 
performance of the "net benefit" models, as a group, was 
robust with respect to changes in all the parameters analyzed. 
The UICP model performance showed the most sensitivity to 
parameter changes, especially with respect to the low demand 
scenarios. Although the RL for the TRAD model displayed the 
most sensitivity to changes in the parameter values analyzed, 
it had little effect on the performance of the TRAD model as 
compared to all other models analyzed. 
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C . RECOMMENDATIONS 

There are three areas related to this research which merit 
further study. First, because all of the models' actual 
retention quantities are dependent upon the demand forecasting 
method, the effectiveness of a model is limited by the 
accuracy of the demand forecast. It would be interesting to 
see how performance would change if demand forecasts were 
adjusted for known changes in future demand (i.e. declining 
demand due to decommissioning of ships) . Second, further 
modifications to the NB-MOD model could be made to improve the 
treatment of the stochastic nature of demand. Modifications 
could include changes in the holding cost savings and 
repurchase cost terms. The goal would be to develop a model 
which performed effectively across all demand scenarios. 
Third, the simulation developed for this thesis could be 
modified to include the Navy's repairable item demand process 
in the Forecasting, Levels and Supply/Demand Review procedures 
of the main program. 
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APPENDIX A. CONSTANT DEMAND ANALYSIS RESULTS 



HDHVHP 





OPTIMAL 


TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


26.65 


15.82 


27.03 


25.91 


28.30 


24.57 


TOTAL COST 


1958776.92 


2414434.20 


1975859.01 


1960427.91 


1987098.52 


1976038.07 


YRS RL 


6.72 


13.88 


5.20 


7.02 


4.80 


8.00 


MADM % ACWT/% TC 


25/75 


0.90 


0.86 


0.89 


0.90 


0.88 


0.90 


75/25 


0.70 


0.95 


0.69 


0.71 


0.67 


0.73 


50/50 


0.80 


0.91 


0.79 


0.80 


0.77 


0.82 



HDHVLP 





OPTIMAL 


TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


4.49 


3.48 


6.50 


4.98 


6.83 


6.49 


TOTAL COST 


46801.69 


45729.89 


53279.98 


48005.34 


54968.84 


52995.40 


YRS RL 


10.56 


13.88 


7.42 


9.55 


6.77 


8.00 


MADM % ACWT/% TC 


25/75 


0.93 


1.00 


0.78 


0.89 


0.75 


0.78 


75/25 


0.83 


1.00 


0.62 


0.76 


0.59 


0.62 


50/50 


0.88 


1.00 


0.70 


0.83 


0.67 


0.70 



HDLVHP 





OPTIMAL 


TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


10.55 


5.87 


11.06 


9.92 


10.94 


9.49 


TOTAL COST 


1553346.41 


2245292.78 


1555618.75 


1577861.26 


1560130.79 


1620726.40 


YRS RL 


5.56 


13.88 


5.20 


7.00 


4.80 


8.00 


MADM % ACWT/% TC 


25/75 


0.89 


0.77 


0.88 


0.89 


0.88 


0.87 


75/25 


0.67 


0.92 


0.65 


0.69 


0.65 


0.70 


50/50 


0.78 


0.85 


0.76 


0.79 


0.77 


0.79 



HDLVLP 





OPTIMAL 


TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


0.98 


0.67 


1.12 


0.96 


1.23 


1.08 


TOTAL COST 


31781.21 


35668.89 


32172.09 


31934.70 


32681 .24 


31950.82 


YRS RL 


8.35 


13.88 


7.42 


9.55 


6.77 


8.00 


MADM % ACWT/% TC 


25/75 


0.92 


0.92 


0.89 


0.92 


0.87 


0.90 


75/25 


0.76 


0.97 


0.70 


0.77 


0.65 


0.71 


50/50 


0.84 


0.95 


0.79 


0.85 


0.76 


0.81 



LDHP 





OPTIMAL 


TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


12.76 


7.60 


12.59 


12.75 


12.73 


12.30 


TOTAL COST 


185406.95 


239742.40 


185804.54 


185257.77 


186368.40 


188184.15 


YRS RL 


6.44 


13.88 


5.85 


6.64 


5.46 


8.00 


MADM % ACWT/% TC 


25/75 


0.90 


0.83 


0.90 


0.90 


0.89 


0.89 


75/25 


0.70 


0.94 


0.70 


0.70 


0.70 


0.71 


50/50 


0.80 


0.89 


0.80 


0.80 


0.80 


0.80 



LDLP 





OPTIMAL 


TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


0.72 


1.01 


0.20 


0.04 


0.61 


1.57 


TOTAL COST 


5812.02 


5966.92 


6383.07 


6685.97 


5789.77 


7321.19 


YRS RL 


16.30 


13.88 


23.36 


26.09 


16.77 


8.00 


MADM % ACWT/% TC 


25/75 


0.76 


0.74 


0.73 


0.90 


0.77 


0.60 


75/25 


0.29 


0.27 


0.38 


0.97 


0.30 


0.22 


50/50 


0.53 


0.50 


0.55 


0.93 


0.53 


0.41 
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Constant Demand Analysis Results 



Model Ranking by MADM Results 



1 


2 


3 


4 


5 


6 



HDHVHP 


25% ACWT / 75% TC 


UlCP* 


NB-MOD* 


OPTIMAL* 


NB 


NB-NPV 


TRAD 


75% ACWT / 25% TC 


TRAD 


UlCP 


NB-MOD 


OPTIMAL 


NB 


NB-NPV 


50% ACWT / 50% TC 


TRAD 


UlCP 


NB-MOD 


OPTIMAL 


NB 


NB-NPV 



HDLVHP 



25% ACWT / 75% TC 


OPTIMAL* 


NB-MOD* 


NB 


NB-NPV 


UlCP 


TRAD 


75% ACWT / 25% TC 


TRAD 


UlCP 


NB-MOD 


OPTIMAL 


NB-NPV 


NB 


50% ACWT / 50% TC 


TRAD 


UlCP 


NB-MOD 


OPTIMAL 


NB-NPV 


NB 



HDHVLP 



25% ACWT / 75% TC 


TRAD 


OPTIMAL 


NB-MOD 


UlCP 


NB 


NB-NPV 


75% ACWT / 25% TC 


TRAD 


OPTIMAL 


NB-MOD 


UlCP 


NB 


NB-NPV 


50% ACWT / 50% TC 


TRAD 


OPTIMAL 


NB-MOD 


UlCP 


NB 


NB-NPV 



HDLVLP 



25% ACWT / 75% TC 


TRAD* 


NB-MOD* 


OPTIMAL* 


UlCP 


NB 


NB-NPV 


75% ACWT/ 25% TC 


TRAD 


NB-MOD 


OPTIMAL 


UlCP 


NB 


NB-NPV 


50% ACWT / 50% TC 


TRAD 


NB-MOD 


OPTIMAL 


UlCP 


NB 


NB-NPV 



LDHP 



25% ACWT / 75% TC 


NB-MOD* 


NB* 


OPTIMAL* 


NB-NPV 


UlCP 


TRAD 


75% ACWT / 25% TC 


TRAD 


UlCP 


NB 


NB-MOD 


OPTIMAL 


NB-NPV 


50% ACWT / 50% TC 


TRAD 


UlCP 


NB 


NB-MOD 


OPTIMAL 


NB-NPV 



LDLP 



25% ACWT / 75% TC 


NB-MOD 


NB-NPV 


OPTIMAL 


TRAD 


NB 


UlCP 


75% ACWT/ 25% TC 


NB-MOD 


NB 


NB-NPV 


OPTIMAL 


TRAD 


UlCP 


50% ACWT / 50% TC 


NB-MOD 


NB 


NB-NPV 


OPTIMAL 


TRAD 


UlCP 



Note: * indicates models have same rank and are both ranked as 1. 
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APPENDIX B. DECLINING DEMAND ANALYSIS RESULTS 



Declining Demand Analysis Results: HDHVHP 



STEP DECREASES 


TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


9.32 


12.14 


11.78 


13.12 


10.90 


TOTAL COST 


220789.55 


204371.92 


208616.37 


203448.36 


211492.75 


AVGYRS RL 


13.88 


5.35 


6.84 


4.94 


8.00 


MADM 


25% ACWT / 75% TC 


0.94 


0.94 


0.93 


0.93 


0.94 


75% ACWT/ 25% TC 


0.98 


0.82 


0.84 


0.78 


0.88 


50% ACWT / 50% TC 


0.96 


0.88 


0.88 


0.86 


0.91 



CONVEX DECREASES 


TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


24.01 


25.77 


25.69 


26.45 


24.55 


TOTAL COST 


349545.12 


334089.74 


338326.17 


333267.81 


340333.27 


AVGYRS RL 


13.88 


5.43 


7.08 


5.02 


8.00 


MADM 


25% ACWT/ 75% TC 


0.97 


0.98 


0.97 


0.98 


0.98 


75% ACWT/ 25% TC 


0.99 


0.95 


0.95 


0.93 


0.98 


50% ACWT/ 50% TC 


0.98 


0.96 


0.96 


0.95 


0.98 



CONCAVE DECREASES 


TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


12.28 


14.72 


14.04 


15.05 


13.03 


TOTAL COST 


231634.28 


208435.28 


213789.73 


207017.16 


217823.08 


AVGYRS RL 


13.88 


5.38 


6.87 


4.98 


8.00 


MADM 


25% ACWT/ 75% TC 


0.92 


0.95 


0.94 


0.95 


0.95 


75% ACWT/ 25% TC 


0.97 


0.87 


0.90 


0.86 


0.94 


50% ACWT / 50% TC 


0.95 


0.91 


0.92 


0.91 


0.95 



Model Ranking by MADM Results 



1 2 



4 



5 



STEP DECREASES 












25% ACWT/ 75% TC 


TRAD* 


NB* 


UlCP* 


NB-MOD 


NB-NPV 


75% ACWT/ 25% TC 


TRAD 


UlCP 


NB-MOD 


NB 


NB-NPV 


50% ACWT / 50% TC 


TRAD 


UlCP 


NB-MOD 


NB 


NB-NPV 



CONVEX DECREASES 












25% ACWT / 75% TC 


NB* 


UlCP* 


NB-NPV* 


NB-MOD 


TRAD 


75% ACWT/ 25% TC 


TRAD 


UlCP 


NB 


NB-MOD 


NB-NPV 


50% ACWT/ 50% TC 


UlCP* 


TRAD* 


NB 


NB-MOD 


NB-NPV 



CONCAVE DECREASES 












25% ACWT / 75% TC 


NB-NPV* 


NB* 


UlCP* 


NB-MOD 


TRAD 


75% ACWT / 25% TC 


TRAD 


UlCP 


NB-MOD 


NB 


NB-NPV 


50% ACWT/ 50% TC 


TRAD* 


UlCP* 


NB-MOD 


NB 


NB-NPV 



Note: * indicates models have same rank and are both ranked as 1 . 
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Declining Demand Analysis Results: 



HDLVHP 



STEP DECREASES 


TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


0.90 


0.91 


0.90 


0.93 


0.90 


TOTAL COST 


130780.13 


123760.33 


125759.57 


123173.10 


127932.56 


AVGYRS RL 


13.88 


5.38 


6.76 


4.97 


8.00 


MADM 


25% ACWT/ 75% TC 


0.96 


0.99 


0.98 


0.99 


0.97 


75% ACWT / 25% TC 


0.99 


0.99 


0.99 


0.98 


0.99 


50% ACWT / 50% TC 


0.97 


0.99 


0.99 


0.98 


0.98 




CONVEX DECREASES 


TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


5.87 


5.90 


5.88 


5.91 


5.90 


TOTAL COST 


236865.30 


229769.03 


230653.34 


229408.75 


232066.44 


AVG YRS RL 


13.88 


5.53 


7.13 


5.11 


8.00 


MADM 


25% ACWT/ 75% TC 


0.98 


1.00 


1.00 


1.00 


0.99 


75% ACWT / 25% TC 


0.99 


1.00 


1.00 


0.99 


0.99 


50% ACWT / 50% TC 


0.98 


1.00 


1.00 


1.00 


0.99 




CONCAVE DECREASES 


TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


2.18 


2.19 


2.18 


2.19 


2.18 


TOTAL COST 


151099.09 


131884.03 


134241.48 


130891.24 


138017.24 


AVGYRS RL 


13.88 


5.43 


6.79 


5.03 


8.00 


MADM 


25% ACWT/ 75% TC 


0.90 


0.99 


0.98 


1.00 


0.96 


75% ACWT / 25% TC 


0.97 


0.99 


0.99 


1.00 


0.99 


50% ACWT/ 50% TC 


0.93 


0.99 


0.99 


1.00 


0.97 



Model Ranking by MADM Results 




1 


2 


3 


4 


5 



STEP DECREASES 












25% ACWT / 75% TC 


NB* 


NB-NPV* 


NB-MOD 


UlCP 


TRAD 


75% ACWT / 25% TC 


NB-MOD* 


UlCP* 


NB* 


TRAD* 


NB-NPV 


50% ACWT/ 50% TC 


NB* 


NB-MOD* 


NB-NPV 


UlCP 


TRAD 



CONVEX DECREASES 












25% ACWT / 75% TC 


NB-NPV* 


NB* 


NB-MOD* 


UlCP 


TRAD 


75% ACWT / 25% TC 


NB-MOD* 


NB* 


NB-NPV* 


UlCP 


TRAD 


50% ACWT/ 50% TC 


NB-MOD* 


NB* 


NB-NPV* 


UlCP 


TRAD 



CONCAVE DECREASES 












25% ACWT / 75% TC 


NB-NPV 


NB 


NB-MOD 


UlCP 


TRAD 


75% ACWT / 25% TC 


NB-NPV 


NB 


NB-MOD 


UlCP 


TRAD 


50% ACWT / 50% TC 


NB-NPV 


NB 


NB-MOD 


UlCP 


TRAD 



Note: * indicates models have same rank and are both ranked as 1. 



87 




Declining Demand Analysis Results; 



HDHVLP 



STEP DECREASES 


TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


6.21 


4.38 


3.65 


4.83 


7.92 


TOTAL COST 


8097.71 


7117.98 


7079.50 


7222.02 


8469.34 


AVGYRS RL 


13.88 


11.03 


13.40 


8.96 


8.00 


MADM 


25% ACWT / 75% TC 


0.80 


0.95 


1.00 


0.92 


0.74 


75% ACWT / 25% TC 


0.66 


0.87 


1.00 


0.81 


0.55 


50% ACWT / 50% TC 


0.73 


0.91 


1.00 


0.87 


0.65 



CONVEX DECREASES 


TRAD 


NB 


NB-MOD 


NB-NPV 


UICP 


ACWT 


10.32 


10.08 


8.82 


11.39 


13.44 


TOTAL COST 


13226.76 


13230.84 


12577.99 


13778.04 


14835.81 


AVGYRS RL 


13.88 


18.49 


21.27 


10.89 


8.00 


MADM 


25% ACWT / 75% TC 


0.93 


0.93 


1.00 


0.88 


0.80 


75% ACWT / 25% TC 


0.88 


0.89 


1.00 


0.81 


0.70 


50% ACWT / 50% TC 


0.90 


0.91 


1.00 


0.84 


0.75 



CONCAVE DECREASES 


TRAD 


NB 


NB-MOD 


NB-NPV 


UICP 


ACWT 


7.41 


5.42 


4.60 


6.87 


8.57 


TOTAL COST 


8544.36 


7751.21 


7604.45 


8126.42 


8747.14 


AVGYRS RL 


13.88 


12.44 


14.89 


9.62 


8.00 


MADM 


25% ACWT / 75% TC 


0.82 


0.95 


1.00 


0.87 


0.79 


75% ACWT / 25% TC 


0.69 


0.88 


1.00 


0.74 


0.62 


50% ACWT / 50% TC 


0.76 


0.91 


1.00 


0.80 


0.70 



Model Ranking by MADM Results 



STEP DECREASES 












25% ACWT / 75% TC 


NB-MOD 


NB 


NB-NPV 


TRAD 


UICP 


75% ACWT / 25% TC 


NB-MOD 


NB 


NB-NPV 


TRAD 


UICP 


50% ACWT / 50% TC 


NB-MOD 


NB 


NB-NPV 


TRAD 


UICP 



CONVEX DECREASES 












25% ACWT / 75% TC 


NB-MOD 


NB 


TRAD 


NB-NPV 


UICP 


75% ACWT / 25% TC 


NB-MOD 


NB 


TRAD- 


NB-NPV 


UICP 


50% ACWT / 50% TC 


NB-MOD 


NB 


TRAD 


NB-NPV 


UICP 



CONCAVE DECREASES 












25% ACWT / 75% TC 


NB-MOD 


NB 


NB-NPV 


TRAD 


UICP 


75% ACWT / 25% TC 


NB-MOD 


NB 


NB-NPV 


TRAD 


UICP 


50% ACWT / 50% TC 


NB-MOD 


NB 


NB-NPV 


TRAD 


UICP 



Note: * indicates models have same rank and are both ranked as 1. 
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Declining Demand Analysis Results: 



HDLVLP 



STEP DECREASES 


TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


0.06 


0.06 


0.06 


0.11 


0.06 


TOTAL COST 


3374.65 


3530.82 


3626.05 


3307.52 


2966.10 


AVGYRS RL 


13.88 


10.95 


13.10 


9.17 


8.00 


MADM 


25% ACWT/ 75% TO 


0.91 


0.88 


0.86 


0.81 


1.00 


75% ACWT / 25% TC 


0.97 


0.96 


0.95 


0.63 


1.00 


50% ACWT/ 50% TC 


0.94 


0.92 


0.91 


0.72 


1.00 



CONVEX DECREASES 


TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


0.47 


0.46 


0.46 


0.46 


0.48 


TCTAL CCST 


5199.29 


5602.32 


5669.70 


5206.96 


5419.07 


AVGYRS RL 


13.88 


23.78 


26.62 


12.50 


8.00 


MADM 


25% ACWT/ 75% TC 


0.99 


0.95 


0.94 


1.00 


0.96 


75% ACWT/ 25% TC 


0.98 


0.98 


0.98 


1.00 


0.96 


50% ACWT/ 50% TC 


0.99 


0.96 


0.96 


1.00 


0.96 



CONCAVE DECREASES 


TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


0.13 


0.13 


0.13 


1.06 


0.13 


TOTAL COST 


3375.91 


3810.11 


3918.66 


3676.27 


3078.21 


AVGYRS RL 


13.88 


12.95 


15.16 


10.10 


8.00 


MADM 


25% ACWT/ 75% TC 


0.93 


0.86 


0.84 


0.66 


1.00 


75% ACWT/ 25% TC 


0.98 


0.95 


0.95 


0.30 


1.00 


50% ACWT/ 50% TC 


0.96 


0.90 


0.89 


0.48 


1.00 



Model Ranking by MADM R esults 



STEP DECREASES 












25% ACWT/ 75% TC 


UlCP 


TRAD 


NB 


NB-MOD 


NB-NPV 


75% ACWT/ 25% TC 


UlCP 


TRAD 


NB 


NB-MOD 


NB-NPV 


50% ACWT / 50% TC 


UlCP 


TRAD 


NB 


NB-MOD 


NB-NPV 



CONVEX DECREASES 












25% ACWT / 75% TC 


NB-NPV 


TRAD 


UlCP 


NB 


NB-MOD 


75% ACWT/ 25% TC 


NB-NPV 


TRAD 


NB 


NB-MOD 


UlCP 


50% ACWT/ 50% TC 


NB-NPV 


TRAD 


NB 


NB-MOD 


UlCP 



CONCAVE DECREASES 












25% ACWT/ 75% TC 


UlCP 


TRAD 


NB 


NB-MOD 


NB-NPV 


75% ACWT/ 25% TC 


UlCP 


TRAD 


NB 


NB-MOD 


NB-NPV 


50% ACWT/ 50% TC 


UlCP 


TRAD 


NB 


NB-MOD 


NB-NPV 



Note: * indicates models have same rank and are both ranked as 1. 
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Declining Demand Analysis Results; 



LDHP 



STEP DECREASES 


TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


3.56 


5.45 


4.21 


5.82 


4.94 


TOTAL COST 


24154.56 


23329.26 


23337.50 


23360.18 


23509.81 


AVGYRS RL 


13.88 


6.21 


7.15 


5.76 


8.00 


MADM 


25% ACWT / 75% TC 


0.97 


0.91 


0.96 


0.90 


0.92 


75% ACWT / 25% TC 


0.99 


0.74 


0.88 


0.71 


0.79 


50% ACWT / 50% TC 


0.98 


0.83 


0.92 


0.81 


0.86 



CONVEX DECREASES 


TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


12.54 


13.92 


13.31 


14.21 


13.79 


TOTAL COST 


35582.07 


34485.15 


34587.07 


34404.45 


34623.23 


AVGYRS RL 


13.88 


5.80 


6.54 


5.39 


8.00 


MADM 


25% ACWT / 75% TC 


0.98 


0.97 


0.98 


0.97 


0.97 


75% ACWT / 25% TC 


0.99 


0.93 


0.96 


0.91 


0.93 


50% ACWT / 50% TC 


0.98 


0.95 


0.97 


0.94 


0.95 



CONCAVE DECREASES 


TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


4.65 


6.10 


5.44 


^6.38 


5.76 


TOTAL COST 


25046.76 


23241.83 


23400.07 


23180.42 


23542.96 


AVGYRS RL 


13.88 


6.29 


7.20 


5.83 


8.00 


MADM 


25% ACWT / 75% TC 


0.94 


0.94 


0.96 


0.93 


0.94 


75% ACWT / 25% TC 


0.98 


0.82 


0.89 


0.80 


0.85 


50% ACWT / 50% TC 


0.96 


0.88 


0.92 


0.86 


0.90 



Model Ranking by MADM Results 



1 


2 


3 


4 


5 



STEP DECREASES 












25% ACWT / 75% TC 


TRAD 


NB-MOD 


UlCP 


NB 


NB-NPV 


75% ACWT / 25% TC 


TRAD 


NB-MOD 


UlCP 


NB 


NB-NPV 


50% ACWT / 50% TC 


TRAD 


NB-MOD 


UlCP 


NB 


NB-NPV 



CONVEX DECREASES 












25% ACWT / 75% TC 


NB-MOD* 


TRAD* 


NB 


UlCP 


NB-NPV 


75% ACWT / 25% TC 


TRAD 


NB-MOD 


UlCP 


NB 


NB-NPV 


50% ACWT / 50% TC 


TRAD 


NB-MOD 


UlCP 


NB 


NB-NPV 



CONCAVE DECREASES 












25% ACWT / 75% TC 


NB-MOD 


TRAD 


UlCP 


NB 


NB-NPV 


75% ACWT / 25% TC 


TRAD 


NB-MOD 


UlCP 


NB 


NB-NPV 


50% ACWT / 50% TC 


TRAD 


NB-MOD 


UlCP 


NB 


NB-NPV 



Note; * indicates models have same rank and are both ranked as 1 . 
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Declining Demand Analysis Results: 



LDLP 



STEP DECREASES 


TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


2.43 


1.51 


1.51 


1.51 


3.33 


TOTAL COST 


1185.21 


1079.81 


1079.81 


1074.83 


1593.66 


AVGYRS RL 


13.88 


57.08 


61.15 


24.30 


8.00 


MADM 


25% ACWT/ 75% TC 


0.84 


1.00 


1.00 


1.00 


0.62 


75% ACWT/ 25% TC 


0.69 


1.00 


1.00 


1.00 


0.51 


50% ACWT/ 50% TC 


0.76 


1.00 


1.00 


1.00 


0.56 



CONVEX DECREASES 


TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


2.49 


1.88 


1.88 


1.88 


3.15 


TOTAL COST 


1472.60 


1458.72 


1458.73 


1447.05 


1634.17 


AVGYRS RL 


13.88 


47.11 


50.43 


20.92 


8.00 


MADM 


25% ACWT / 75% TC 


0.93 


0.99 


0.99 


1.00 


0.81 


75% ACWT / 25% TC 


0.81 


1.00 


1.00 


1.00 


0.67 


50% ACWT / 50% TC 


0.87 


1.00 


1.00 


1.00 


0.74 



CONCAVE DECREASES 


TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


1.50 


0.77 


0.77 


0.77 


1.55 


TOTAL COST 


1054.90 


1013.75 


1013.75 


997.99 


1329.69 


AVGYRS RL 


13.88 


62.30 


66.42 


24.80 


8.00 


MADM 


25% AC\ATr/75%TC 


0.84 


0.99 


0.99 


1.00 


0.69 


75% ACWT / 25% TC 


0.62 


1.00 


1.00 


1.00 


0.56 


50% ACWT / 50% TC 


0.73 


0.99 


0.99 


1.00 


0.62 



Model Ranking by MADM Re sults 



1 


2 


3 


4 


5 



STEP DECREASES 












25% ACWT / 75% TC 


NB* 


NB-MOD* 


NB-NPV* 


TRAD 


UlCP 


75% ACWT / 25% TC 


NB* 


NB-MOD* 


NB-NPV* 


TRAD 


UlCP 


50% ACWT / 50% TC 


NB* 


NB-MOD* 


NB-NPV* 


TRAD 


UlCP 



CONVEX DECREASES 












25% ACWT / 75% TC 


NB-NPV 


NB 


NB-MOD 


TRAD 


UlCP 


75% ACWT / 25% TC 


NB-NPV* 


NB* 


NB-MOD* 


TRAD 


UlCP 


50% ACWT / 50% TC 


NB-NPV 


NB 


NB-MOD 


TRAD 


UlCP 



CONCAVE DECREASES 












25% ACWT / 75% TC 


NB-NPV 


NB 


i ^MOD 


TRAD 


UlCP 


75% ACWT / 25% TC 


NB-NPV* 


NB* 


NB-MOD* 


TRAD 


UlCP 


50% ACWT / 50% TC 


NB-NPV 


NB 


NB-MOD 


TRAD 


UlCP 



Note: * indicates models have same rank and are both ranked as 1 . 
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APPENDIX C. SENSATIVITY ANALYSIS RESULTS 



Sensativlty Analysis: HIGH DEMAND /CONVEX /STORAGE RATE 



RATE = .01 {Default setting for DDA} 





TRAD 


NB 


NB-MOD 


NB-NPV 


UICP 


ACWT 


24.01 


25.77 


25.69 


26.45 


24.55 


TOTAL COST 


349545.12 


334089.74 


338326.17 


33326781 


340333.27 


AVG YRS RL 


13.88 


5.43 


7.08 


5.02 


8.00 


MADM 


25% ACWT / 75% TC 


0.97 


0.98 


0.97 


0.98 


0.98 


75% ACWT/ 25% TC 


0.99 


0.95 


0.95 


0.93 


0.98 


50% ACWT/ 50% TC 


0.98 


0.96 


0.96 


0.95 


0.98 



RATE = .03 





TRAD 


NB 


NB-MOD 


NB-NPV 


UICP 


ACWT 


27.22 


29.69 


29.65 


30.44 


27.39 


TOTAL COST 


357217.82 


345953.47 


350530.32 


344784.85 


353724.12 


AVG YRS RL 


9.81 


4.96 


6.54 


4.62 


8.00 


MADM 


25% ACWT / 75% TC 


0.97 


0.98 


0.97 


0.97 


0.98 


75% ACWT 7 25% TC 


0.99 


0.94 


0.93 


0.92 


0.99 


50% ACWT / 50% TC 


0.98 


0.96 


0.95 


0.95 


0.98 



RATE = .05 





TRAD 


NB 


NB-MOD 


NB-NPV 


UICP 


ACWT 


29.27 


31.65 


30.10 


33.14 


29.18 


TOTAL COST 


363849.86 


353272.39 


358558.53 


352736.24 


364253.12 


AVG YRS RL 


7.87 


4.57 


6.07 


4.28 


8.00 


MADM 


25% ACWT/ 75% TC 


0.98 


0.98 


0.98 


0.97 


0.98 


75% ACWT/ 25% TC 


0.99 


0.94 


0.97 


0.91 


0.99 


50% ACWT / 50% TC 


0.98 


0.96 


0.98 


0.94 


0.98 



RATE = .07 





TRAD 


NB 


NB-MOD 


NB-NPV 


UICP 


ACWT 


27.67 


30.78 


28.46 


31.70 


26.05 


TOTAL COST 


372007.48 


362168.95 


368168.80 


361309.65 


375678.73 


AVG YRS RL 


6.65 


4.24 


5.67 


3.99 


8.00 


MADM 


25% ACWT / 75% TC 


0.96 


0.96 


0.96 


0.96 


0.97 


75% ACWT / 25% TC 


0.95 


0.88 


0.93 


0.87 


0.99 


50% ACWT / 50% TC 


0.96 


0.92 


0.95 


0.91 


0.98 



Model Ranking by MADM Results 

r 1 I 2 I 3 I 4 I 5 I 



Rate = 0.01 {Default setting for PDA} 



25% ACWT / 75% TC 


NB* 


UICP* 


NB-NPV* 


NB-MOD 


TRAD 


75% ACWT/ 25% TC 


TRAD 


UICP 


NB 


NB-MOD 


NB-NPV 


50% ACWT/ 50% TC 


UICP* 


TRAD* 


NB 


NB-MOD 


NB-NPV 



Rate = 0.03 



25% ACWT/ 75% TC 


UICP* 


NB* 


TRAD 


NB-NPV 


NB-MOD 


75% ACWT/ 25% TC 


TRAD* 


UICP* 


NB 


NB-MOD 


NB-NPV 


50% ACWT/ 50% TC 


UICP* 


TRAD* 


NB 


NB-MOD 


NB-NPV 



Rate = 0.05 



25% ACWT/ 75% TC 


NB-MOD* 


NB* 


TRAD* 


UICP* 


NB-NPV 


75% ACWT/ 25% TC 


UICP* 


TRAD* 


NB-MOD 


NB 


NB-NPV 


50% ACWT/ 50% TC 


UICP* 


TRAD* 


NB-MOD* 


NB 


NB-NPV 



Rate = 0.07 



25% ACWT / 75% TC 


UICP 


NB-MOD 


TRAD 


NB 


NB-NPV 


75% ACWT/ 25% TC 


UICP 


TRAD 


NB-MOD 


NB 


NB-NPV 


50% ACWT / 50% TC 


UICP 


TRAD 


NB-MOD 


NB 


NB-NPV 



Note: * indicates models have the same rank and are both ranked as 1 . 
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Sensativity Analysis: HIGH DEMAND /CONVEX /ORDER COST RATE 



RATE = 200 





TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


24.01 


26 35 


25.71 


27.12 


24.55 


TOTAL COST 


347751.21 


331959.19 


336425.45 


331557.60 


338450.71 


AVG YRS RL 


13.88 


5.27 


6.91 


4.88 


8.00 


MADM 


25% ACWT / 75% TC 


0.97 


0.98 


0.97 


0.97 


0.98 


75% ACWT / 25% TC 


0.99 


0.93 


0.95 


0.91 


0.98 


50% ACWT / 50% TC 


0.98 


0.95 


0.96 


0.94 


0.98 



RATE = 400 





TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


Acv\rr 


24.01 


25.94 


25.74 


27.03 


24.55 


TOTAL COST 


348303.18 


332428.02 


337065.42 


332190.22 


339029.96 


AVG YRS RL 


13.88 


5.32 


6.97 


4.92 


8.00 


MADM 


25% ACWT/ 75% TC 


0.97 


0.98 


0.97 


0.97 


0.98 


75% ACWT / 25% TC 


0.99 


0.94 


0.95 


0.92 


0.98 


50% ACWT/ 50% TC 


0.98 


0.96 


0.96 


0.94 


0.98 


RATE =800 


(Default setting for DDA) 










TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


24.01 


25.77 


25.69 


26.45 


24.55 


TOTAL COST 


349545.12 


334089.74 


338326.17 


333267.81 


340333.27 


AVG YRS RL 


13.88 


5.43 


7.08 


5.02 


8.00 


MADM 


25% ACWT / 75% TC 


0.97 


0.98 


0.97 


0.98 


0.98 


75% ACWT / 25% TC 


0.99 


0.95 


0.95 


0.93 


0.98 


50% ACWT / 50% TC 


0.98 


0.96 


0.96 


0.95 


0.98 


RATE = 1200 




TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


Acv\rr 


24.01 


25.89 


25.60 


26.33 


24.55 


TOTAL COST 


350511.08 


335322.15 


339398.21 


334235. 1 1 


341346.96 


AVG YRS RL 


13.88 


5.52 


7.17 


5.09 


8.00 


MADM 


25% ACWT/ 75% TC 


0.97 


0.98 


0.97 


0.98 


0.98 


75% ACWT / 25% TC 


0.99 


0.94 


0.95 


0.93 


0.98 


50% ACWT / 50% TC 


0.98 


0.96 


0.96 


0.96 


0.98 


Model Ranking by MADM Results 


1 


1 1 I 


1 2 1 


1 3 1 


1 4 1 


1 5 1 


Rate = 200 












25% ACWT / 75% TC 


UlCP* 


NB* 


NB-MOD 


NB-NPV 


TRAD 


75% ACWT / 25% TC 


TRAD 


UlCP 


NB-MOD 


NB 


NB-NPV 


50% ACWT / 50% TC 


UlCP* 


TRAD* 


NB-MOD 


NB 


NB-NPV 


Rate = 400 


25% ACWT / 75% TC 


NB* 


UlCP* 


NB-MOD 


NB-NPV 


TRAD 


75% ACWT/ 25% TC 


TRAD 


UlCP 


NB-MOD 


NB 


NB-NPV 


50% ACWT/ 50% TC 


UlCP* 


TRAD* 


NB 


NB-MOD 


NB-NPV 


Rate = 800 {Default setting for DDA} 


25% ACWT / 75% TC 


NB* 


UlCP* 


NB-NPV* 


NB-MOD 


TRAD 


75% ACWT / 25% TC 


TRAD 


UlCP 


NB 


NB-MOD 


NB-NPV 


50% ACWT / 50% TC 


UlCP* 


TRAD* 


NB 


NB-MOD 


NB-NPV 



Rate = 1200 



25% ACWT / 75% TC 


NB* 


UlCP* 


NB-NPV* 


NB-MOD 


TRAD 


75% ACWT / 25% TC 


TRAD 


UlCP 


NB-MOD 


NB 


NB-NPV 


50% ACWT / 50% TC 


UlCP* 


TRAD* 


NB 


NB-MOD 


NB-NPV 



Note: * indicates models have the same rank and are both ranked as 1 . 
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Sensativity Analysis: HIGH DEMAND /CONVEX /OBSOLESENCE RATE 



RATE = .06 





TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


14,97 


18.46 


17.17 


19.85 


17.99 


TOTAL COST 


321842.45 


312977,96 


314537.71 


312285.90 


313143.04 


AVG YRS RL 


18.56 


7.64 


9.36 


6.79 


8.00 


MADM 


25% ACWT / 75% TC 


0.98 


0.95 


0.96 


0.94 


0.96 


75% ACWT / 25% TC 


0.99 


0.86 


0.90 


0.82 


0.87 


50% ACWT / 50% TC 


0.99 


0.90 


0.93 


0.88 


0.91 



RATE = .09 





TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


20.09 


21.68 


22.26 


23.13 


21.51 


TOTAL COST 


335428.45 


323697.57 


326513.97 


323022. 15 


326486.69 


AVG YRS RL 


15.89 


6.34 


8.06 


5.76 


8.00 


MADM 


25% ACWT/ 75% TC 


0.97 


0.98 


0.97 


0.97 


0.98 


75% ACWT / 25% TC 


0.99 


0.94 


0.92 


0.90 


0.95 


50% ACWT/ 50% TC 


0.98 


0.96 


0.95 


0.93 


0.96 


RATE = .12 


(Default setting used in DDA) 










TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


24.01 


25.77 


25.69 


26.45 


24.55 


TOTAL COST 


349545.12 


334089.74 


338326.17 


333267.81 


340333.27 


AVG YRS RL 


13.88 


5.43 


7.08 


5.02 


8.00 


MADM 


25% ACWT / 75% TC 


0.97 


0.98 


0.97 


0.98 


0.98 


75% ACV\rr / 25% TC 


0.99 


0.95 


0.95 


0.93 


0.98 


50% ACWT / 50% TC 


0.98 


0.96 


0.96 


0.95 


0.98 


RATE = .15 




TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


28.05 


30.72 


29.68 


31.41 


28.52 


TOTAL COST 


367494.39 


349330.60 


354442.86 


348535.63 


359087.21 


AVG YRS RL 


12.30 


4.76 


6.30 


4.44 


8.00 


MADM 


25% ACWT / 75% TC 


0.96 


0.98 


0.97 


0.97 


0.97 


75% ACWT/ 25% TC 


0.99 


0.93 


0.95 


0.92 


0.98 


50% ACWT / 50% TC 


0.97 


0.96 


0.96 


0.95 


0.98 


Model Ranking by MADM Results 




I 1 1 


I 2 I 


1 3 I 


1 4 


I 5 I 


Rate = 0.06 












25% ACWT / 75% TC 


TRAD 


NB-MOD 


UlCP 


NB 


NB-NPV 


75% ACWT/ 25% TC 


TRAD 


NB-MOD 


UlCP 


NB 


NB-NPV 


50% Acvyr / 50% tc 


TRAD 


NB-MOD 


UlCP 


NB 


NB-NPV 


Rate = 0.09 


25% ACWT/ 75% TC 


NB* 


UlCP* 


TRAD 


NB-MOD 


NB-NPV 


75% ACWT / 25% TC 


TRAD 


UlCP 


NB 


NB-MOD 


NB-NPV 


50% ACWT/ 50% TC 


TRAD 


NB 


UlCP 


NB-MOD 


NB-NPV 


Rate = 0.12 {Default setting used in DDA} 


25% ACWT / 75% TC 


NB* 


UlCP* 


NB-NPV* 


NB-MOD 


TRAD 


75% ACWT/ 25% TC 


TRAD 


UlCP 


NB 


NB-MOD 


NB-NPV 


50% ACWT / 50% TC 


UlCP* 


TRAD* 


NB 


NB-MOD 


NB-NPV 



Rate = 0.15 



25% ACWT / 75% TC 


NB* 


UlCP* 


NB-MOD* 


NB-NPV 


TRAD 


75% ACWT/ 25% TC 


TRAD 


UlCP 


NB-MOD 


NB 


NB-NPV 


50% ACWT / 50% TC 


UlCP 


TRAD 


NB-MOD 


NB 


NB-NPV 



Note: * indicates models have the same rank and are both ranked as 1. 
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Sensativity Analysis: HIGH DEMAND/ CONVEX/ SALVAGE RATE 



RATE = .01 





TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


23.92 


25.68 


25.63 


26.50 


24.55 


TOTAL COST 


349587 94 


333013.67 


337285.25 


332267.49 


339281 .04 


AVG YRS RL 


14.68 


5.48 


7.13 


5.07 


8.00 


MADM 


25% ACWT / 75% TC 


0.96 


0.98 


0.97 


0.98 


0.98 


75% ACWT/ 25% TC 


0.99 


0.95 


0.95 


0.93 


0.98 


50% ACWT / 50% TC 


0.98 


0.96 


0.96 


0.95 


0.98 


RATE = .02 


{Default setting for DDA} 










TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


24.01 


25.77 


25.69 


26.45 


24.55 


TOTAL COST 


349545.12 


334089.74 


338326.17 


333267.81 


340333.27 


AVG YRS RL 


13.88 


5.43 


7.08 


5.02 


8.00 


MADM 


25% ACWT / 75% TC 


0.97 


0.98 


0.97 


0.98 


0.98 


75% ACWT / 25% TC 


0.99 


0.95 


0.95 


0.93 


0.98 


50% ACWT / 50% TC 


0.98 


0.96 


0.96 


0.95 


0.98 


RATE = .05 




TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


24.36 


26.11 


25.39 


26.80 


24.55 


TOTAL COST 


350113.42 


337076. 16 


341118.12 


336456.03 


343489.97 


AVG YRS RL 


12.05 


5.28 


6.93 


4.84 


8.00 


MADM 


25% ACWT/ 75% TC 


0.97 


0.98 


0.98 


0.98 


0.98 


75% ACWT/ 25% TC 


0.99 


0.95 


0.97 


0.93 


0.99 


50% ACWT / 50% TC 


0.98 


0.97 


0.97 


0.95 


0.99 


RATE = .15 




TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


24.41 


27.28 


26.05 


28.68 


24.55 


TOTAL COST 


354825.77 


348165.07 


351228.86 


348567.61 


354012.31 


AVG YRS RL 


8.49 


4.79 


6.43 


4.28 


8.00 


MADM 


25% ACWT/ 75% TC 


0.99 


0.97 


0.98 


0.96 


0.99 


75% ACWT/ 25% TC 


1.00 


0.92 


0.95 


0.89 


0.99 


50% ACWT / 50% TC 


0.99 


0.95 


0.96 


0.92 


0.99 


Model Ranking by MADM Results 


1 


1 1 ! 


1 2 


1 3 1 


1 4 


1 5 1 


Rate = 0.01 












25% ACWT / 75% TC 


NB* 


UlCP* 


NB-NPV* 


NB-MOD 


TRAD 


75% ACWT / 25% TC 


TRAD 


UlCP 


NB 


NB-MOD 


NB-NPV 


50% ACWT / 50% TC 


UlCP* 


TRAD* 


NB 


NB-MOD 


NB-NPV 


Rate = 0.02 {Default 


setting for DDA} 








25% ACWT/ 75% TC 


NB* 


UlCP* 


NB-NPV* 


NB-MOD 


TRAD 


75% ACWT/ 25% TC 


TRAD 


UlCP 


NB 


NB-MOD 


NB-NPV 


50% ACWT / 50% TC 


UlCP* 


TRAD* 


NB 


NB-MOD 


NB-NPV 



Rate = 0.05 



25% ACWT/ 75% TC 


UlCP* 


NB* 


NB-MOD* 


NB-NPV* 


TRAD 


75% ACWT / 25% TC 


TRAD* 


UlCP* 


NB-MOD 


NB 


NB-NPV 


50% ACWT / 50% TC 


UlCP 


TRAD 


NB-MOD 


NB NB-NPV 



Rate = 0.15 



25% ACWT/ 75% TC 


UlCP* 


TRAD* 


NB-MOD 


NB 


NB-NPV 


75% ACWT/ 25% TC 


TRAD 


UlCP 


NB-MOD 


NB 


NB-NPV 


50% ACWT / 50% TC 


TRAD* 


UlCP* 


NB-MOD 


NB 


NB-NPV 



Note: * indicates models have the same rank and are both ranked as 1 . 
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Sensativity Ananlysis; HIGH DEMAND/ CONCAVE/ STORAGE RATE 



RATE = .01 {Default setting for DDA) 





TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


12.28 


14.72 


14.04 


15.05 


13.03 


TOTAL COST 


231634.28 


208435.28 


213789.73 


207017.16 


217823.08 


AVGYRS RL 


13.88 


5.38 


6.87 


4.98 


8.00 


MADM 


25% ACWT / 75% TC 


0.92 


0.95 


0.94 


0.95 


0.95 


75% ACWT/ 25% TC 


0.97 


0.87 


0.90 


0.86 


0.94 


50% Acv\rr / 50% tc 


0.95 


0.91 


0.92 


0.91 


0.95 



RATE r .03 





TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


13.42 


16.44 


15.47 


16.96 


14.25 


TOTAL COST 


235398.86 


216923.50 


222797.49 


214975.46 


230106.07 


AVGYRS RL 


9.81 


4.92 


6.34 


4.58 


8.00 


MADM 


25% ACV\rr / 75% TC 


0.93 


0.95 


0.94 


0.95 


0.94 


75% ACWT / 25% TC 


0.98 


0.86 


0.89 


0.84 


0.94 


50% ACWT / 50% TC 


0.96 


0.90 


0.92 


0.90 


0.94 



RATE = .05 





TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


16.71 


19.25 


17.88 


19.77 


16.47 


TOTAL COST 


241397.60 


224443.92 


231525.01 


222982.12 


241893.88 


AVGYRS RL 


7.87 


4.53 


5.89 


4.24 


8.00 


MADM 


25% ACWT / 75% TC 


0.94 


0.96 


0.95 


0.96 


0.94 


75% ACWT / 25% TC 


0.97 


0.89 


0.93 


0.87 


0.98 


50% ACWT / 50% TC 


0.95 


0.92 


0.94 


0.92 


0.96 



RATE = .07 





TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


17.56 


18.80 


17.60 


19.58 


15.18 


TOTAL COST 


249385.11 


233548.76 


241665.02 


231922.85 


255296.49 


AVGYRS RL 


6.65 


4.20 


5.49 


3.95 


8.00 


MADM 


25% ACWT / 75% TC 


0.91 


0.95 


0.94 


0.94 


0.93 


75% ACWT / 25% TC 


0.88 


0.85 


0.89 


0.83 


0.98 


50% ACWT / 50% TC 


0.90 


0.90 


0.91 


0.89 


0.95 



Model Ranking by MAD M Results 

I 1 I 2 I 3 I 4 I 5 



Rate = 0.01 {Default setting for PDA) 



25% ACWT / 75% TC 


NB-NPV* 


NB* 


UlCP* 


NB-MOD 


TRAD 


75% ACWT / 25% TC 


TRAD 


UlCP 


NB-MOD 


NB 


NB-NPV 


50% ACWT / 50% TC 


TRAD* 


UlCP* 


NB-MOD 


NB 


NB-NPV 



Rate = 0.03 



25% ACWT/ 75% TC 


NB-NPV* 


NB* 


NB-MOD 


UlCP 


TRAD 


75% ACWT / 25% TC 


TRAD 


UlCP 


NB-MOD 


NB 


NB-NPV 


50% ACWT / 50% TC 


TRAD 


UlCP 


NB-MOD 


NB 


NB-NPV 



Rate = 0.05 



25% ACWT/ 75% TC 


NB* 


NB-NPV* 


NB-MOD 


UlCP 


TRAD 


75% ACV\rr/25%TC 


UlCP 


TRAD 


NB-MOD 


NB 


NB-NPV 


50% ACWT / 50% TC 


UlCP 


TRAD 


NB-MOD 


NB 


NB-NPV 



Rate = 0.07 



25% ACWT / 75% TC 


NB 


NB-NPV 


NB-MOD 


UlCP 


TRAD 


75% ACWT / 25% TC 


UlCP 


NB-MOD 


TRAD 


NB 


NB-NPV 


50% ACWT / 50% TC 


UlCP 


NB-MOD 


NB 


TRAD 


NB-NPV 



Note: * indicates models have the same rank and are both ranked as 1 . 
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Sensativity Analysis; HIGH DEMAND/ CONCAVE/ ORDER COST RATE 



RATE = 200 





TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


12.28 


15.55 


14.98 


16.04 


13.03 


TOTAL COST 


230883.87 


207366.24 


212826.75 


206063.49 


216922.74 


AVGYRS RL 


13.88 


5.27 


6.76 


4.89 


8.00 


MADM 


25% ACWT / 75% TC 


0.92 


0.94 


0.93 


0.94 


0.95 


75% ACWT / 25% TC 


0.97 


0.84 


0.86 


0.82 


0.94 


50% ACWT / 50% TC 


0.95 


0.89 


0.89 


0.88 


0.95 



RATE = 400 





TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


12.28 


14.90 


14.85 


15.92 


13.03 


TOTAL COST 


231114.77 


207692.54 


213235.53 


206532.50 


217199.76 


AVGYRS RL 


13.88 


5.31 


6.80 


4.92 


8.00 


MADM 


25% ACWT / 75% TC 


0.92 


0.95 


0.93 


0.94 


0.95 


75% ACWT / 25% TC 


0.97 


0.87 


0.86 


0.83 


0.94 


50% ACWT / 50% TC 


0.95 


0.91 


0.90 


0.89 


0.95 


RATE = 800 


{Default setting for DDA) 










TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


12.28 


14.72 


14.04 


15.05 


13.03 


TOTAL COST 


231634.28 


208435.28 


213789.73 


207017.16 


217823.08 


AVGYRS RL 


13.88 


^ 38 


6.87 


4.98 


8.00 


MADM 


25% ACWT/ 75% TC 


0.92 


0.95 


0.94 


0.95 


0.95 


75% ACWT/ 25% TC 


0.97 


0.87 


0.90 


0.86 


0.94 


50% ACWT / 50% TC 


0.95 


0.91 


0.92 


0.91 


0.95 


RATE = 1200 




TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


12.28 


15.24 


13.89 


14.91 


13.03 


TOTAL COST 


232038.35 


209184.56 


214424.41 


207656.06 


218307.87 


AVGYRS RL 


13.88 


5.44 


6.93 


5.03 


8.00 


MADM 


25% ACWT / 75% TC 


0.92 


0.95 


0.95 


0.96 


0.95 


75% ACWT / 25% TC 


0.97 


0.85 


0.91 


0.87 


0.94 


50% Acv\rr / 50% tc 


0.95 


0.90 


0.93 


0.91 


0.95 


Model Ranking by MADM Results 


1 


I 1 I 


1 2 1 


1 3 


1 4 1 


1 5 1 


Rate = 200 












25% ACWT / 75% TC 


UlCP 


NB 


NB-NPV 


NB-MOD 


TRAD 


75% ACWT/ 25% TC 


TRAD 


UlCP 


NB-MOD 


NB 


NB-NPV 


50% ACWT / 50% TC 


TRAD* 


UlCP* 


NB-MOD 


NB 


NB-NPV 


Rate = 400 


25% ACWT/ 75% TC 


NB* 


UlCP* 


NB-NPV 


NB-MOD 


TRAD 


75% ACWT/ 25% TC 


TRAD 


UlCP* 


NB 


NB-MOD 


NB-NPV 


50% ACWT / 50% TC 


TRAD* 


UlCP* 


NB 


NB-MOD 


NB-NPV 


Rate = 800 {Default setting for DDA} 


25% ACWT / 75% TC 


NB-NPV* 


NB* 


UlCP* 


NB-MOD 


TRAD 


75% ACWT/ 25% TC 


TRAD 


UlCP 


NB-MOD 


NB 


NB-NPV 


50% ACWT / 50% TC 


TRAD* 


UlCP* 


NB-MOD 


NB 


NB-NPV 


Rate = 1200 


25% ACWT / 75% TC 


NB-NPV* 


UlCP* 


NB-MOD* 


NB 


TRAD 


75% ACWT/ 25% TC 


TRAD 


UlCP 


NB-MOD 


NB-NPV 


NB 


50% ACWT / 50% TC 


TRAD* 


UlCP* 


NB-MOD 


NB-NPV 


NB 



Note: * indicates models have the same rank and are both ranked as 1 . 
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Sensativity Analysis: HIGH DEMAND/ CONCAVE/ OBSOLESENCE RATE 



RATE = .06 





TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


7,31 


10.43 


9.87 


11.97 


10.48 


TOTAL COST 


198434.88 


183703.71 


186146.11 


182330,17 


184760.54 


AVGYRS RL 


18.56 


7.57 


9.12 


6.75 


8.00 


MADM 


25% ACWT / 75% TC 


0.94 


0.92 


0.92 


0.90 


0.91 


75% ACWT / 25% TC 


0.98 


0.77 


0.80 


0.71 


0.77 


50% ACWT / 50% TC 


0.96 


0.85 


0.86 


0.81 


0.84 



RATE = .09 





TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


10.01 


12.71 


12.70 


13.78 


12.01 


TOTAL COST 


214393.52 


196187.70 


199550.80 


194470,71 


200781 .78 


AVGYRS RL 


15.89 


6.29 


7.84 


5.72 


8.00 


MADM 


25% ACWT / 75% TC 


0.93 


0.94 


0.93 


0.93 


0.93 


75% ACWT / 25% TC 


0.98 


0.84 


0.83 


0.79 


0.87 


50% ACWT / 50% TC 


0.95 


0.89 


0.88 


0.86 


0.90 



RATE = ,12 {Default setting for DDA) 





TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


12.28 


14.72 


14.04 


15.05 


13.03 


TOTAL COST 


231634.28 


208435.28 


213789.73 


207017.16 


217823.08 


AVGYRS RL 


13.88 


5.38 


6.87 


4.98 


8.00 


MADM 


25% ACWT / 75% TC 


0.92 


0.95 


0.94 


0.95 


0.95 


75% ACWT / 25% TC 


0.97 


0.87 


0.90 


0.86 


0.94 


50% ACWT / 50% TC 


0.95 


0.91 


0.92 


0.91 


0.95 



RATE =15 





TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


15.21 


17.83 


17.20 


18.26 


16.29 


TOTAL COST 


248709.14 


220141.05 


227080.61 


218510.54 


235916.93 


AVGYRS RL 


12.30 


4.71 


6.11 


4.41 


8.00 


MADM 


25% ACWT / 75% TC 


0.91 


0.96 


0.94 


0.96 


0.93 


75% ACWT / 25% TC 


0.97 


0.89 


0.90 


0.87 


0.93 


50% ACWT / 50% TC 


0.94 


0.92 


0.92 


0.92 


0.93 


Model Ranking by MADM Results 




1 ^ 1 


I 2 


1 3 


J 


1 5__ 1 


Rate = 0.06 












25% ACWT / 75% TC 


TRAD 


NB-MOD 


NB 


UlCP 


NB-NPV 


75% ACWT / 25% TC 


TRAD 


NB-MOD 


NB 


UlCP 


NB-NPV 


50% Acv^rr / 50% tc 


TRAD 


NB-MOD 


NB 


UlCP 


NB-NPV 


Rate = 0.09 


25% ACWT / 75% TC 


NB 


UlCP 


NB-NPV 


TRAD 


NB-MOD 


75% ACWT / 25% TC 


TRAD 


UlCP 


NB 


NB-MOD 


NB-NPV 


50% ACWT / 50% TC 


TRAD 


UlCP 


NB 


NB-MOD 


NB-NPV 


Rate = 0.12 (Default 


setting for DDA} 








25% ACWT/ 75% TC 


NB-NPV* 


z 

CD 

* 


UlCP* 


NB-MOD 


TRAD 


75% ACWT / 25% TC 


TRAD 


UlCP 


NB-MOD 


NB 


NB-NPV 


50% ACWT/ 50% TC 


TRAD* 


UlCP* 


NB-MOD 


NB 


NB-NPV 



Rate = 0.15 



25% ACWT / 75% TC 


NB-NPV* 


NB* 


NB-MOD 


UlCP 


TRAD 


75% ACWT / 25% TC 


TRAD 


UlCP 


NB-MOD 


NB 


NB-NPV 


50% ACWT / 50% TC 


TRAD 


UlCP 


NB-MOD 


NB 


NB-NPV 



Note: * indicates models have the same rank and are both ranked as 1 . 
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Sensativity Analysis: HIGH DEMAND/ CONCAVE/ SALVAGE RATE 



RATE = .01 





TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


12.22 


14.65 


14.03 


14.98 


13.03 


TOTAL COST 


232609.91 


207664.49 


213227.69 


206361.40 


217132.09 


AVG YRS RL 


14.68 


5.43 


6.92 


5.04 


8.00 


MADM 


25% ACWT / 75% TC 


0.92 


0.95 


0.94 


0.95 


0.95 


75% ACWT/ 25% TC 


0.97 


0.87 


0.90 


0.86 


0.94 


50% ACWT / 50% TC 


0.94 


0.91 


0.92 


0.91 


0.94 



RATE = .02 {Default setting for DDA) 





TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


12.28 


14.72 


14.04 


15.05 


13.03 


TOTAL COST 


231634.28 


208435.28 


213789.73 


207017.16 


217823.08 


AVG YRS RL 


13.88 


5.38 


6.87 


4.98 


8.00 


MADM 


25% ACWT / 75% TC 


0.92 


0.95 


0.94 


0.95 


0.95 


75% ACWT / 25% TC 


0.97 


0.87 


0.90 


0.86 


0.94 


50% ACWT / 50% TC 


0.95 


0.91 


0.92 


0.91 


0.95 



RATE = .05 





TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


12.66 


14.98 


14.42 


15.34 


13.03 


TOTAL COST 


229654.07 


210586.55 


215664.68 


209210.58 


219896.04 


AVG YRS RL 


12.05 


5.23 


6.72 


4.81 


8.00 


MADM 


25% ACWT / 75% TC 


0.93 


0.96 


0.95 


0.96 


0.96 


75% ACWT/ 25% TC 


0.98 


0.88 


0.90 


0.87 


0.97 


50% ACWT / 50% TC 


0.96 


0.92 


0.92 


0.91 


0.96 



RATE = .15 





TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


13.13 


15.47 


14.48 


17.54 


13.03 


TOTAL COST 


227938.27 


217716.92 


221889.16 


216519.03 


226805.93 


AVG YRS ERL 


8.49 


4.73 


6.22 


4.25 


8.00 


MADM 


25% ACWT/ 75% TC 


0.96 


0.96 


0.96 


0.94 


0.97 


75% ACWT/ 25% TC 


0.98 


0.88 


0.92 


0.81 


0.99 


50% ACWT/ 50% TC 


0.97 


0.92 


0.94 


0.87 


0.98 


Model Ranking by MADM Results 


1 


1 ^ 1 


2 1 


1 3 1 


1 4 


1 5 1 


Rate = 0.01 












25% ACWT / 75% TC 


NB-NPV* 


NB* 


UlCP* 


NB-MOD 


TRAD 


75% ACWT/ 25% TC 


TRAD 


UlCP 


NB-MOD 


NB 


NB-NPV 


50% ACWT / 50% TC 


UICP‘ 


TRAD* 


NB-MOD 


NB 


NB-NPV 



Rate = 0.02 (Default setting for PDA) 



25% ACWT / 75% TC 


NB-NPV* 


NB* 


UlCP* 


NB-MOD 


TRAD 


75% ACWT/ 25% TC 


TRAD 


UlCP 


NB-MOD 


NB 


NB-NPV 


50% ACWT / 50% TC 


TRAD* 


UlCP* 


NB-MOD 


NB 


NB-NPV 



Rate = 0.05 



25% ACWT/ 75% TC 


UlCP* 


NB* 


NB-NPV* 


NB-MOD 


TRAD 


75% ACWT/ 25% TC 


TRAD 


UlCP 


NB-MOD 


NB 


NB-NPV 


50% ACWT / 50% TC 


UlCP* 


TRAD* 


NB-MOD 


NB 


NB-NPV 



Rate = 0.15 



25% ACWT/ 75% TC 


UlCP 


TRAD 


NB-MOD 


NB 


NB-NPV 


75% ACWT / 25% TC 


UlCP 


TRAD 


NB-MOD 


NB 


NB-NPV 


50% ACWT / 50% TC 


UlCP 


TRAD 


NB-MOD 


NB 


NB-NPV 



Note: * indicates models have the same rank and are both ranked as 1 . 
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Sensativity Analysis: LOW DEMAND /CONVEX /STORAGE RATE 



RATE = .01 {Default setting for DDA) 





TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


12.54 


13.92 


13.31 


14.21 


13.79 


TOTAL COST 


35582.07 


3448515 


34587.07 


34404.45 


34623.23 


AVG YRS RL 


13.88 


5.80 


6.54 


5.39 


8.00 


MADM 


25% ACWT / 75% TC 


0.98 


0.97 


0.98 


0.97 


0.97 


75% ACWT / 25% TC 


0.99 


0.93 


0.96 


0.91 


0.93 


50% ACWT / 50% TC 


0.98 


0.95 


0.97 


0.94 


0.95 



RATE = .03 





TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


13.36 


15.65 


14.16 


16.27 


14.63 


TOTAL COST 


36236.12 


35530.08 


35659.28 


35568.61 


35896.61 


AVG YRS RL 


9.81 


5.32 


6.02 


4.99 


8.00 


MADM 


25% ACWT / 75% TC 


0.99 


0.96 


0.98 


0.95 


0.97 


75% ACWT/ 25% TC 


1.00 


0.89 


0.96 


0.87 


0.93 


50% ACWT / 50% TC 


0.99 


0.93 


0.97 


0.91 


0.95 



RATE = .05 





TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


15.36 


18.07 


16.43 


18.78 


15.34 


TOTAL COST 


36958.67 


36470.11 


36622.29 


36497.76 


36990.70 


AVG YRS RL 


7.87 


4.93 


5.58 


4.65 


8.00 


MADM 


25% ACWT/ 75% TC 


0.99 


0.96 


0.98 


0.95 


0.99 


75% ACWT / 25% TC 


1.00 


0.89 


0.95 


0.86 


1.00 


50% ACWT / 50% TC 


0.99 


0.92 


0.96 


0.91 


0.99 



RATE = .07 





TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


17.24 


19.05 


18.53 


19.62 


16.46 


TOTAL COST 


37686.09 


37412.26 


37582.75 


37390.56 


38098.63 


AVG YRS RL 


6.65 


4.59 


5,20 


4.36 


8.00 


MADM 


25% ACWT/ 75% TC 


0.98 


0.97 


0.97 


0.96 


0.99 


75% ACWT / 25% TC 


0.96 


0.90 


0.91 


0.88 


1.00 


50% ACWT / 50% TC 


0.97 


0.93 


0.94 


0.92 


0.99 



Model Ranking by MAD M Results 

I 1 I 2 I 3 I 4 I 5 I 



Rate = 0.01 {Default setting for PDA} 



25% ACWT / 75% TC 


NB-MOD 


TRAD 


NB 


UlCP 


NB-NPV 


75% ACWT / 25% TC 


TRAD 


NB-MOD 


UlCP 


NB 


NB-NPV 


50% ACWT / 50% TC 


TRAD 


NB-MOD 


UlCP 


NB 


NB-NPV 



Rate = 0.03 



25% ACWT/ 75% TC 


TRAD 


NB-MOD 


UlCP 


NB 


NB-NPV 


75% ACWT / 25% TC 


TRAD 


NB-MOD 


UlCP 


NB 


NB-NPV 


50% ACWT / 50% TC 


TRAD 


NB-MOD 


UlCP 


NB 


NB-NPV 



Rate = 0.05 



25% ACWT / 75% TC 


TRAD* 


UlCP* 


NB-MOD 


NB 


NB-NPV 


75% ACWT/ 25% TC 


UlCP* 


TRAD* 


NB-MOD 


NB 


NB-NPV 


50% ACWT/ 50% TC 


UlCP* 


TRAD* 


NB-MOD 


NB 


NB-NPV 



Rate = 0.07 



25% ACWT / 75% TC 


UlCP 


TRAD 


NB-MOD 


NB 


NB-NPV 


75% ACWT / 25% TC 


UlCP 


TRAD 


NB-MOD 


NB 


NB-NPV 


50% ACWT / 50% TC 


UlCP 


TRAD 


NB-MOD 


NB 


NB-NPV 



Note: * indicates models have the same rank and are both ranked as 1 . 
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Sensativity Analysis; LOW DEMAND /CONVEX /ORDER COST 



RATE = 200 





TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


12.54 


14.10 


13.72 


14.37 


13.79 


TOTAL COST 


34904.16 


33647.57 


33901.15 


33701.20 


33914.69 


AVG YRS RL 


13.88 


5.36 


6.11 


5.03 


8.00 


MADM 


25% ACWT/ 75% TC 


0.97 


0.97 


0.97 


0.97 


0.97 


75% ACWT/ 25% TC 


0.99 


0.92 


0.93 


0.90 


0.93 


50% ACWT/ 50% TC 


0.98 


0.94 


0.95 


0.94 


0.95 



RATE = 400 





TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


12.54 


14.12 


13.24 


14.30 


13.79 


TOTAL COST 


35112.74 


33868.70 


34091 .89 


33908.62 


34132.71 


AVG YRS RL 


13.88 


5.50 


6.24 


5.14 


8.00 


MADM 


25% ACWT/ 75% TC 


0.97 


0.97 


0.98 


0.97 


0.97 


75% ACWT / 25% TC 


0.99 


0.92 


0.96 


0.91 


0.93 


50% ACWT / 50% TC 


0.98 


0.94 


0.97 


0.94 


0.95 


RATE = 800 


{Default setting for DDA) 










TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


12.54 


13.92 


13.31 


14.21 


13.79 


TOTAL COST 


35582.07 


34485. 15 


34587.07 


34404.45 


34623.23 


AVG YRS RL 


13.88 


5.80 


6.54 


5.39 


8.00 


MADM 


25% ACWT / 75% TC 


0.98 


0.97 


0.98 


0.97 


0.97 


75% ACWT / 25% TC 


0.99 


0.93 


0.96 


0.91 


0.93 


50% ACWT / 50% TC 


0.98 


0.95 


0.97 


0.94 


0.95 


RATE = 1200 




TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


12.54 


13.75 


13.18 


14.00 


13.79 


TOTAL COST 


35947.10 


34947.52 


35084.20 


34823.45 


35004.76 


AVG YRS RL 


13.88 


6.03 


6.77 


5.58 


8.00 


MADM 


25% ACWT/ 75% TC 


0.98 


0.98 


0.98 


0.97 


0.97 


75% ACWT / 25% TC 


0.99 


0.93 


0.96 


0.92 


0.93 


50% ACWT / 50% TC 


0.98 


0.95 


0.97 


0.95 


0.95 


Model Ranking by MADM Results 


1 


1 ^ 1 


2 ! 


1 3 


1 4 


1 5 1 


Rate = 200 












25% ACWT / 75% TC 


TRAD* 


NB-MOD* 


NB* 


UlCP* 


NB-NPV* 


75% ACWT/ 25% TC 


TRAD 


NB-MOD 


UlCP 


NB 


NB-NPV 


50% ACWT / 50% TC 


TRAD 


NB-MOD 


UlCP 


NB 


NB-NPV 


Rate = 400 


25% ACWT / 75% TC 


NB-MOD 


TRAD 


NB 


UlCP 


NB-NPV 


75% ACWT / 25% TC 


TRAD 


NB-MOD 


UlCP 


NB 


NB-NPV 


50% ACWT / 50% TC 


TRAD 


NB-MOD 


UlCP 


NB 


NB-NPV 


Rate = 800 {Default setting for DDA} 


25% ACWT / 75% TC 


NB-MOD* 


TRAD* 


NB 


UlCP 


NB-NPV 


75% ACWT / 25% TC 


TRAD 


NB-MOD 


UlCP 


NB 


NB-NPV 


50% ACWT / 50% TC 


TRAD 


NB-MOD 


UlCP 


NB 


NB-NPV 



Rate = 1200 



25% ACWT / 75% TC 


NB-MOD* 


TRAD* 


NB* 


NB-NPV 


UlCP 


75% ACWT / 25% TC 


TRAD 


NB-MOD 


NB 


UlCP 


NB-NPV 


50% ACWT / 50% TC 


TRAD 


NB-MOD 


NB 


UlCP 


NB-NPV 



Note: * Indicates models have the same rank and are both ranked as 1 . 
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Sensativity Analysis; LOW DEMAND /CONVEX /OBSOLESENCE RATE 



RATE = .06 





TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


7.32 


8.29 


8.10 


8.77 


8.66 


TOTAL COST 


32578.42 


31942.98 


32004.91 


31834.59 


31757.68 


AVG YRS RL 


18.56 


8.00 


8.85 


7.13 


8.00 


MADM 


25% ACWT/ 75% TC 


0.98 


0.97 


0.97 


0.96 


0.96 


75% ACWT / 25% TC 


0.99 


0.91 


0.93 


0.88 


0.88 


50% ACWT / 50% TC 


0.99 


0.94 


0.95 


0.92 


0.92 



RATE = .09 





TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


9.64 


11.29 


10.48 


11.64 


10.84 


TOTAL COST 


34027.66 


33172.34 


33374.83 


33099.09 


33165.38 


AVG YRS RL 


15.89 


6.71 


7.51 


6.13 


8.00 


MADM 


25% ACWT/ 75% TC 


0.98 


0.96 


0.97 


0.96 


0.97 


75% ACWT / 25% TC 


0.99 


0.89 


0.94 


0.87 


0.92 


50% ACWT/ 50% TC 


0.99 


0.93 


0.96 


0.91 


0.94 


RATE = .12 


{Default setting for DDA} 










TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


12.54 


13.92 


13.31 


14.21 


13.79 


TOTAL COST 


35582.07 


34485.15 


34587.07 


34404.45 


34623.23 


AVG YRS RL 


13.88 


5.80 


6.54 


5.39 


8.00 


MADM 


25% ACWT/ 75% TC 


0.98 


0.97 


0.98 


0.97 


0.97 


75% ACWT / 25% TC 


0.99 


0.93 


0.96 


0.91 


0.93 


50% ACWT / 50% TC 


0.98 


0.95 


0.97 


0-94 


0.95 


RATE = .15 




TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


14.09 


15.96 


15.27 


16.92 


15.05 


TOTAL COST 


37325.24 


36052.81 


36235.35 


36082.41 


36507.90 


AVG YRS RL 


12.30 


5.12 


5.79 


4.82 


8.00 


MADM 


25% ACWT/ 75% TC 


0.97 


0.97 


0.98 


0.96 


0.97 


75% ACWT / 25% TC 


0.99 


0.91 


0.94 


0.87 


0.95 


50% ACWT / 50% TC 


0.98 


0.94 


0.96 


0.92 


0.96 


Model Ranking by MADM Results 




1 i 1 


1 2 


1 3 1 


i 4 


1 5 1 


Rate = 0.06 












25% ACWT / 75% TC 


TRAD 


NB-MOD 


NB 


UlCP 


NB-NPV 


75% ACWT/ 25% TC 


TRAD 


NB-MOD 


NB 


UlCP 


NB-NPV 


50% ACWT / 50% TC 


TRAD 


NB-MOD 


NB 


UlCP 


NB-NPV 


Rate = 0.09 


25% ACWT / 75% TC 


TRAD 


NB-MOD 


UlCP 


NB 


NB-NPV 


75% ACWT / 25% TC 


TRAD 


NB-MOD 


UlCP 


NB 


NB-NPV 


50% ACWT / 50% TC 


TRAD 


NB-MOD 


UlCP 


NB 


NB-NPV 


Rate = 0.12 


25% ACWT/ 75% TC 


NB-MOD* 


TRAD* 


NB 


UlCP 


NB-NPV 


75% ACWT / 25% TC 


TRAD 


NB-MOD 


UlCP 


NB 


NB-NPV 


50% ACWT / 50% TC 


TRAD 


NB-MOD 


UlCP 


NB 


NB-NPV 



Rate = 0.15 



25% ACWT / 75% TC 


NB-MOD 


UlCP 


TRAD 


NB 


NB-NPV 


75% ACWT/ 25% TC 


TRAD 


UlCP 


NB-MOD 


NB 


NB-NPV 


50% ACWT / 50% TC 


TRAD 


UlCP 


NB-MOD 


NB 


NB-NPV 



Note; * indicates models have the same rank and are both ranked as 1 . 
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Sensativity Analysis: LOW DEMAND /CONVEX /SALVAGE RATE 



RATE = .01 





TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


12.48 


13.86 


13.31 


14.19 


13.79 


TOTAL COST 


35617.78 


34390.86 


34486.51 


34269.30 


34514.30 


AVG YRS RL 


14.68 


5.84 


6.59 


5.45 


8.00 


MADM 


25% ACWT / 75% TC 


0.97 


0.97 


0.98 


0.97 


0.97 


75% ACWT / 25% TC 


0.99 


0.92 


0.95 


0.91 


0.93 


50% ACWT / 50% TC 


0.98 


0.95 


0.97 


0.94 


0.95 


RATE = .02 


{Default setting for DDA} 










TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


12.54 


13.92 


13.31 


14.21 


13.79 


TOTAL COST 


35582.07 


34485. 15 


34587.07 


34404.45 


34623.23 


AVG YRS RL 


13.88 


5.80 


6.54 


5.39 


8.00 


MADM 


25% ACWT/ 75% TC 


0.98 


0.97 


0.98 


0.97 


0.97 


75% ACWT/ 25% TC 


0.99 


0.93 


0.96 


0.91 


0.93 


50% ACWT / 50% TC 


0.98 


0.95 


0.97 


0.94 


0.95 


RATE = .05 




TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


12.66 


14.06 


13.14 


14.28 


13.79 


TOTAL COST 


35626.31 


34778.79 


34928.90 


34707.40 


34950.03 


AVG YRS RL 


12.05 


5.66 


6.40 


5.23 


8.00 


MADM 


25% ACWT/ 75% TC 


0.98 


0.97 


0.99 


0.97 


0.97 


75% ACWT/ 25% TC 


0.99 


0.92 


0.97 


0.91 


0.94 


50% ACWT / 50% TC 


0.99 


0.95 


0.98 


0.94 


0.96 


RATE =15 




TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


13.65 


14.28 


13.45 


15.38 


13.79 


TOTAL COST 


36082.08 


35882.73 


35994.66 


36148.96 


36039.37 


AVG YRS RL 


8.49 


5.20 


5.94 


4.70 


8.00 


MADM 


25% ACWT/ 75% TC 


0.99 


0.99 


1.00 


0.96 


0.99 


75% ACWT/ 25% TC 


0.99 


0.96 


1.00 


0.90 


0.98 


50% ACWT/ 50% TC 


0.99 


0.97 


1.00 


0.93 


0.99 


Model Ranking by MADM Results 


1 


i ^ 1 


1 2 1 


1 3 1 


1 4 


1 5 1 



Rate = 0.01 



25% ACWT/ 75% TC 


NB-MOD* 


NB* 


TRAD* 


UlCP* 


NB-NPV 


75% ACWT/ 25% TC 


TRAD 


NB-MOD 


UlCP 


NB 


NB-NPV 


50% ACWT / 50% TC 


TRAD 


NB-MOD 


UlCP 


NB 


NB-NPV 



Rate = 0.02 



25% ACWT / 75% TC 


NB-MOD* 


TRAD* 


NB 


UlCP 


NB-NPV 


75% ACWT / 25% TC 


TRAD 


NB-MOD 


UlCP 


NB 


NB-NPV 


50% ACWT / 50% TC 


TRAD 


NB-MOD 


UlCP 


NB 


NB-NPV 



Rate = 0.05 



25% ACWT / 75% TC 


NB-MOD 


TRAD 


UlCP 


NB 


NB-NPV 


75% ACWT / 25% TC 


TRAD 


NB-MOD 


UlCP 


NB 


NB-NPV 


50% ACWT / 50% TC 


TRAD 


NB-MOD 


UlCP 


NB 


NB-NPV 



Rate = 0.15 



25% ACWT/ 75% TC 


NB-MOD 


TRAD 


UlCP 


NB 


NB-NPV 


75% ACWT/ 25% TC 


NB-MOD 


TRAD 


UlCP 


NB 


NB-NPV 


50% ACWT / 50% TC 


NB-MOD 


TRAD 


UlCP 


NB 


NB-NPV 



Note: * indicates models have the same rank and are both ranked as 1 . 
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Sensativlty Analysis; LOW DEMAND/ CONCAVE/ STORAGE RATE 



RATE = .01 {Default setting for DDA} 





TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


4.65 


6.10 


5.44 


6.38 


5.76 


TOTAL COST 


25046.76 


23241.83 


23400.07 


23180.42 


23542.96 


AVG YRS RL 


13.88 


6.29 


7.20 


5.83 


8.00 


MADM 


25% ACWT / 75% TC 


0.94 


0.94 


0.96 


0.93 


0.94 


75% ACWT / 25% TC 


0.98 


0.82 


0.89 


0.80 


0.85 


50% ACWT / 50% TC 


0.96 


0.88 


0.92 


0.86 


0.90 



RATE = .03 





trad 


NB 


NB-MOD 


NB-NPV 


UlCP 


Acv\rr 


5.89 


7.27 


6.27 


7.69 


6.44 


TOTAL COST 


25356.29 


24232.85 


24460.34 


24205.94 


24806.99 


AVG YRS RL 


9.81 


5.78 


6.63 


5.40 


8.00 


MADM 


25% ACWT / 75% TC 


0.97 


0.95 


0.98 


0.94 


0.96 


75% AC\ATr / 25% TC 


0.99 


0.86 


0.95 


0.82 


0.93 


50% Acv\nr / 50% tc 


0.98 


0.90 


0.96 


0.88 


0.95 



RATE = .05 





trad 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


6.56 


8.16 


7.40 


8.46 


6.50 


TOTAL COST 


25680.64 


25028.55 


25314.93 


25054.40 


25761.12 


AVG YRS RL 


7.87 


5.35 


6.15 


5.04 


8.00 


MADM 


25% ACWT / 75% TC 


0.98 


0.95 


0.96 


0.94 


0.98 


75% ACWT / 25% TC 


0.99 


0.85 


0.91 


0.83 


0.99 


50% Acv\rr / 50% tc 


0.98 


0.90 


0.93 


0.88 


0.99 



RATE = .07 





TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


Acv\rr 


7.95 


8.71 


8.39 


8.83 


7.20 


TOTAL COST 


26306.28 


25812,70 


26023.52 


25843.70 


26818.26 


AVG YRS RL 


6.65 


4.98 


5.73 


4.72 


8.00 


MADM 


25% ACWT / 75% TC 


0.96 


0.96 


0.96 


0.95 


0.97 


75% AC\ATr / 25% TC 


0.92 


0.87 


0.89 


0.86 


0.99 


50% Acv\rr / 50% tc 


0.94 


0.91 


0.93 


0.91 


0.98 


Model Ranking by MADM Results 




1 


i 2 1 


1 3 1 


1 4 1 


1 5 1 



Rate = 0.01 (Default setting for PDA) 



25% ACWT / 75% TC 


NB-MOD 


TRAD 


UlCP 


NB 


NB-NPV 


75% ACV\rr/25%TC 


TRAD 


NB-MOD 


UlCP 


NB 


NB-NPV 


50% ACWT / 50% TC 


TRAD 


NB-MOD 


UlCP 


NB 


NB-NPV 



Rate = 0.03 



25% ACV\rr/75%TC 


NB-MOD 


TRAD 


UlCP 


NB 


NB-NPV 


75% ACWT/ 25% TC 


TRAD 


NB-MOD 


UlCP 


NB 


NB-NPV 


50% ACWT / 50% TC 


TRAD 


NB-MOD 


UlCP 


NB 


NB-NPV 



Rate = 0.05 



25% ACWT / 75% TC 


UlCP* 


TRAD* 


NB-MOD 


NB 


NB-NPV 


75% ACWT / 25% TC 


UlCP* 


TRAD* 


NB-MOD 


NB 


NB-NPV 


50% ACWT / 50% TC 


UlCP 


TRAD 


NB-MOD 


NB 


NB-NPV 



Rate = 0.15 



25% ACWT/ 7 5% TC 


UlCP 


TRAD 


NB-MOD 


NB 


NB-NPV 


75% ACWT/ 25% TC 


UlCP 


TRAD 


NB-MOD 


NB 


NB-NPV 


50% ACWT / 50% TC 


UlCP 


TRAD 


NB-MOD 


NB 


NB-NPV 



Note: * Indicates models have the same rank and are both ranked as 1. 
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Sensativity Analysis. LOW DEMAND /CONCAVE /ORDER COST 



RATE = 200 





TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


4.65 


6.67 


5.67 


6.80 


5.76 


TOTAL COST 


24614.92 


22709.28 


22893.73 


22789.46 


23015.72 


AVG YRS RL 


13.88 


5.70 


6.62 


5.35 


8.00 


MADM 


25% ACWT/ 75% TC 


0.94 


0.92 


0.95 


0.92 


0.94 


75% ACWT/ 25% TC 


0.98 


0.77 


0.86 


0.76 


0.85 


50% ACWT / 50% TC 


0.96 


0.85 


0.91 


0.84 


0.90 



RATE = 400 





TRAD 


NB 


NB-MOD 


NB-NPV 


UICP 


ACWT 


4.65 


6.33 


5.42 


6.68 


5.76 


TOTAL COST 


24747.79 


22850.09 


22977.85 


22954.51 


23177.95 


AVG YRS RL 


13.88 


5.88 


6.80 


5.50 


8.00 


MADM 


25% ACWT/ 75% TC 


0.94 


0.93 


0.96 


0.92 


0.94 


75% ACWT/ 25% TC 


0.98 


0.80 


0.89 


0.77 


0.85 


50% ACWT / 50% TC 


0.96 


0.87 


0.93 


0.85 


0.90 


RATE =80) 


(Default setting for DDA) 










TRAD 


NB 


NB-MOD 


NB-NPV 


UICP 


ACWT 


4.65 


6.10 


5.44 


6.38 


5.76 


TOTAL COST 


25046.76 


23241.83 


23400.07 


23180.42 


23542.96 


AVG YRS RL 


13.88 


6.29 


7.20 


5.83 


8.00 


MADM 


25% ACWT / 75% TC 


0.94 


0.94 


0.96 


0.93 


0.94 


75% ACWT/ 25% TC 


0.98 


0.82 


0.89 


0.80 


0.85 


50% ACWT / 50% TC 


0.96 


0.88 


0.92 


0.86 


0.90 


RATE = 1200 




TRAD 


NB 


NB-MOD 


NB-NPV 


UICP 


ACWT 


4.65 


5.73 


5.38 


6.21 


5.76 


TOTAL COST 


25279.29 


23569.44 


23772.05 


23553.80 


23826.86 


AVG YRS RL 


13.88 


6.60 


7.52 


6.08 


8.00 


MADM 


25% ACWT/ 75% TC 


0.95 


0.95 


0.96 


0.94 


0.94 


75% ACWT/ 25% TC 


0.98 


0.86 


0.90 


0.81 


0.85 


50% ACWT / 50% TC 


0.97 


0.91 


0.93 


0.87 


0.90 


Model Ranking by MADM Results 


I 


1 


1 2 


1 3 1 


1 4 


L__.._ 5_ .1 


Rate = 200 












25% ACWT/ 75% TC 


NB-MOD 


TRAD 


UICP 


NB 


NB-NPV 


75% ACWT/ 25% TC 


TRAD 


NB-MOD 


UlCP 


NB 


NB-NPV 


50% ACWT / 50% TC 


TRAD 


NB-MOD 


UICP 


NB 


NB-NPV 


Rate = 400 


25% ACWT / 75% TC 


NB-MOD 


TRAD 


UICP 


NB 


NB-NPV 


75% ACWT/ 25% TC 


TRAD 


NB-MOD 


UICP 


NB 


NB-NPV 


50% ACWT / 50% TC 


TRAD 


NB-MOD 


UICP 


NB 


NB-NPV 


Rate = 800 {Default setting for DDA} 


25% ACWT/ 75% TC 


NB-MOD 


TRAD 


UICP 


NB 


NB-NPV 


75% ACWT/ 25% TC 


TRAD 


NB-MOD 


UICP 


NB 


NB-NPV 


50% ACWT/ 50% TC 


TRAD 


NB-MOD 


UICP 


NB 


NB-NPV 



Rate r 1200 



25% ACWT/ 75% TC 


NB-MOD 


NB 


TRAD 


UICP 


NB-NPV 


75% ACWT/ 25% TC 


TRAD 


NB-MOD 


NB 


UICP 


NB-NPV 


50% ACWT / 50% TC 


TRAD 


NB-MOD 


NB 


UICP 


NB-NPV 



Note: * indicates models have the same rank and are both ranked as 1 . 
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Sensativity Analysis: LOW DEMAND /CONCAVE /OBSOLESENCE RATE 



RATE = .06 





TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


2.54 


3.39 


3.45 


3.47 


3.53 


TOTAL COST 


21881.18 


20559.13 


20789.88 


20418.57 


20569.38 


AVG YRS RL 


18.56 


8.67 


9.75 


7.71 


8.00 


MADM 


25% ACWT / 75% TC 


0.95 


0.93 


0.92 


0.93 


0.92 


75% ACWT/ 25% TC 


0.98 


0.81 


0.80 


0.80 


0.79 


50% ACWT/ 50% TC 


0.97 


0.87 


0.86 


0.87 


0.86 



RATE = .09 





TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


3.41 


4.27 


4.08 


4.62 


4.11 


TOTAL COST 


23337.77 


21852.72 


22156.85 


21776.48 


21990.64 


AVG YRS RL 


15.89 


7.28 


8.27 


6.63 


8.00 


MADM 


25% ACWT / 75% TC 


0.95 


0.95 


0.95 


0.93 


0.95 


75% ACWT / 25% TC 


0.98 


0.85 


0.87 


0.80 


0.87 


50% ACWT / 50% TC 


0.97 


0.90 


0.91 


0.87 


0.91 


RATE = .12 


(Default setting for DDA) 










TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


4.65 


6.10 


5.44 


6.38 


5.76 


TOTAL COST 


25046.76 


23241.83 


23400.07 


23180.42 


23542.96 


AVG YRS RL 


13.88 


6.29 


7.20 


5.83 


8.00 


MADM 


25% ACWT / 75% TC 


0.94 


0.94 


0.96 


0.93 


0.94 


75% ACWT/ 25% TC 


0.98 


0.82 


0.89 


0.80 


0.85 


50% ACWT / 50% TC 


0.96 


0.88 


0.92 


0.86 


0.90 


RATE = .15 




TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


6.78 


8.27 


7.44 


8.66 


7.22 


TOTAL COST 


26743.28 


24822.09 


25049.00 


24825.86 


25463.42 


AVG YRS RL 


12.30 


5.55 


6.38 


5.21 


8.00 


MADM 


25% ACWT/ 75% TC 


0.95 


0.95 


0.97 


0.95 


0.97 


75% ACWT / 25% TC 


0.98 


0.86 


0.93 


0.84 


0.95 


50% ACWT / 50% TC 


0.96 


0.91 


0.95 


0.89 


0.96 


Model Ranking by MADM Results 


I 


1 1 I 


1 2 


1 3 


1 4 


1 5 1 


Rate = 0.06 












25% ACWT/ 75% TC 


TRAD 


NB-NPV 


NB 


UlCP 


NB-MOD 


75% ACWT / 25% TC 


TRAD 


NB 


NB-NPV 


NB-MOD 


UlCP 


50% ACWT / 50% TC 


TRAD 


NB 


NB-NPV 


NB-MOD 


UlCP 


Rate = 0.09 


25% ACWT/ 75% TC 


UlCP* 


TRAD* 


NB* 


NB-MOD* 


NB-NPV 


75% ACWT / 25% TC 


TRAD 


NB-MOD 


UlCP 


NB 


NB-NPV 


50% ACWT / 50% TC 


TRAD 


UlCP 


NB-MOD 


NB 


NB-NPV 


Rate = 0.12 {Default setting for DDA) 


25% ACWT/ 75% TC 


NB-MOD 


TRAD 


UlCP 


NB 


NB-NPV 


75% ACWT / 25% TC 


TRAD 


NB-MOD 


UlCP 


NB 


NB-NPV 


50% ACWT / 50% TC 


TRAD 


NB-MOD 


UlCP 


NB 


NB-NPV 



Rate r 0.15 



25% ACWT / 75% TC 


NB-MOD* 


UlCP* 


NB 


TRAD 


NB-NPV 


75% ACWT/ 25% TC 


TRAD 


UlCP 


NB-MOD 


NB 


NB-NPV 


50% ACWT / 50% TC 


TRAD* 


UlCP* 


NB-MOD 


NB 


NB-NPV 



Not a: * indicates models have the same rank and are both ranked as 1 . 
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Sensativity Analysis; LOW DEMAND /CONCAVE /SALVAGE RATE 



RATE = .01 





TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


4.63 


6.08 


5.44 


6.29 


5.76 


TOTAL COST 


25140.99 


23192.11 


23314.59 


23090.34 


23445.31 


AVG YRS RL 


14.68 


6.34 


7.25 


5.89 


8.00 


MADM 


25% ACWT / 75% TC 


0.94 


0.94 


0.96 


0.93 


0.94 


75% ACWT/ 25% TC 


0.98 


0.82 


0.89 


0.80 


0.85 


50% ACWT / 50% TC 


0.96 


0.88 


0.92 


0.87 


0.89 


RATE = .02 


{Default setting for DDA) 










TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


4.65 


6.10 


5.44 


6.38 


5.76 


TOTAL COST 


25046.76 


23241.83 


23400.07 


23180.42 


23542.96 


AVG YRS RL 


13.88 


6.29 


7.20 


5.83 


8.00 


MADM 


25% ACWT/ 75% TC 


0.94 


0.94 


0.96 


0.93 


0.94 


75% ACWT/ 25% TC 


0.98 


0.82 


0.89 


0.80 


0.85 


50% ACWT / 50% TC 


0.96 


0.88 


0.92 


0.86 


0.90 


RATE = .05 




TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


4.95 


6.21 


5.38 


6.31 


5.76 


TOTAL COST 


24885.57 


23596.79 


23678.48 


23491.25 


23835.93 


AVG YRS RL 


12.05 


6.14 


7.06 


5.66 


8.00 


MADM 


25% ACWT/ 75% TC 


0.96 


0.95 


0.97 


0.95 


0.95 


75% ACWT / 25% TC 


0.99 


0.85 


0.94 


0.84 


0.89 


50% ACWT / 50% TC 


0.97 


0.90 


0.96 


0.89 


0.92 


RATE = .15 




TRAD 


NB 


NB-MOD 


NB-NPV 


UlCP 


ACWT 


5.64 


6.33 


5.49 


6.94 


5.76 


TOTAL COST 


24901 .78 


24554.13 


24663.63 


24894.49 


24812.47 


AVG YRS RL 


8.49 


5.65 


6.57 


5.10 


8.00 


MADM 


25% ACWT/ 75% TC 


0.98 


0.97 


1.00 


0.94 


0.98 


75% ACWT/ 25% TC 


0.98 


0.90 


1.00 


0.84 


0.96 


50% ACWT / 50% TC 


0.98 


0.93 


1.00 


0.89 


0.97 


Model Ranking by MADM Results 



1 L_ 


CM 


J 3 


J 4 


5 



Rate = 0.01 



25% ACWT '75%TC 


NB-MOD 


UlCP 


TRAD 


NB 


NB-NPV 


75% ACWT / 25% TC 


TRAD 


NB-MOD 


UlCP 


NB 


NB-NPV 


50% ACWT / 50% TC 


TRAD 


NB-MOD 


UlCP 


NB 


NB-NPV 



Rate = 0.02 (Default setting for PDA) 



25% ACWT/ 75% TC 


NB-MOD 


TRAD 


UlCP 


NB 


NB-NPV 


75% ACWT/ 25% TC 


TRAD 


NB-MOD 


UlCP 


NB 


NB-NPV 


50% ACWT / 50% TC 


TRAD 


NB-MOD 


UlCP 


NB 


NB-NPV . 



Rate = 0.05 



25% ACWT / 75% TC 


NB-MOD 


TRAD 


UlCP 


NB-NPV 


NB 


75% ACWT / 25% TC 


TRAD 


NB-MOD 


UlCP 


NB 


NB-NPV 


50% ACWT / 50% TC 


TRAD 


NB-MOD 


UlCP 


NB 


NB-NPV 



Rate = 0.15 



25% ACWT / 75% TC 


NB-MOD 


TRAD 


UlCP 


NB 


NB-NPV 


75% ACWT / 25% TC 


NB-MOD 


TRAD 


UlCP 


NB 


NB-NPV 


50% ACWT / 50% TC 


NB-MOD 


TRAD 


UlCP 


NB 


NB-NPV 



Note: * indicates models have the same rank and are both ranked as 1 . 
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APPENDIX D. SIMULATION CODE 



This appendix contains the following pascal code for the 
simulation : 



NAME 


TYPE OF CODE 


PAGE # 


UICP_Simulator 


main program 


109 . 


toolbox 


unit 


144 . 


unirand 


unit 


148. 


PDUnit 


unit 


153 . 


PQueue . 


unit 


165. 
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program UICP_Simuxator ( input , ouput ) 



{CM 04000,0,0) (01-4) (CN4,E4) (CG+) 

uses dos, crt, toolbox, uni rand, PDUnit, pqueue; 

type quai terArray=ai ray (1..100] of real; 
weeklyArray=array (1..1300) of leal; 
repAriay=array (1..750) of real; 
qtiIntAi ray=aii ay (1..100) of integer; 
changeRealArry = an ay (1..5) of leal; 
changeint Arry = array (1..5) of integer; 
pdH2f ield=sti ing ( 15); 
descriptType=string{4 0) ; 

const COEFFUl .38b; 

POWERUO.74 6; 

COEFF2=3.869; 

P0WER2=1 .378; 

MAXPLT=14.0; 

MINPLT=2.0; 

ERROR=l . OOOOOOOOOOOOOOE-0010; 

YRSERR=8; 

MINERR=6; 



var wklyObsei“v: week lyAi ray ; 

observ, frcst, mad, EOOAri-y, ROLevelAri-y , ERflAri-y , 

S5ADDBO, GSADD, 5S5MA ,meanDmdAri-y , varDmdAri-y, investOtr,qtrSMA;quai terArray; 

stepIndAri-y , t rndIndAi ry ,mkCodeArry ;qtrIntArray; 

obsei~vType , di st rType , outputType , seedtype , wkDat aType , qt rDat aType , 

PDDataType, repStatType, ERRType, anal IndTypeichar; 

numbeiRep, i , numberOfReps,numberOfOtis,numberOfWks,markCode, initinv, simCount : integer; 
meanDemand, varDemand: real ; 

noint, trendOn, StepOn , nmbrSteps , nmbrTrends, TWUS, orderCount ; integer; 

s, seedlndex,num0tr; integer; 

currSeed: longint; 

input f i le, output fi le: text; 

noRea 1 , f i x ERR ; i ea 1 ; 

stringval :pd82 field; 

Stop: boo lean; 

startstep, startrnd, endtrnd: changeIntArry ; 
stepmult, trendcoeff, trendpower: changeRealArry; 
hourl ,minutel ,secondl ,hdSecl , hour2 ,minute2 , second2 , hdSec2 : word; 
out Pi 1 eName : st r i ng ; 

OSHeap, BOHeap: PriorityOueueType; 

ADDBO,ADD,SMA, Invest : real ; 

simADDBO, simADD, simSMA, simlnvest, simOrderCount : real ; 
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ciADDBO, ciADD,ciSMA,ci Invest , ciOrdei Count : real ; 

Cl Disposals, Cl disposal Count , ciEndOH,ciEndOS; real r 
varADDBO, varADD, varSMA, varinvest , varOrdercount : real ; 
varDi sposals , varDi sposal Count , varEndOH , varEndOS: i eal ; 
di sposalCount , di sPosa Is , endOH , endOS : i nteger; 
simDi sposalCount , simDi sposals, simEndOH , simEndOS: leal ; 
runDesci ipt :descriptType; 

totCost ,holdTC, orderTC,shortTC, salvTR: real ; 

t otCost Any , holdTCAri-y , ordei TCAi i-y , shoi tTCAi i“y , sa IvTRArry iquartei Ai ray; 
simTotCost , simHoldTC, simOi derTC, simShortTC , simSa 1 vTR : i ea 1 ; 
varTotCost , varHoldTC , varOrderTC, varShortTC, varSalvTR: real ; 
ciTotCost ,ciHoldTC, ciOrderTC,ciShortTC,ciSalvTR: real ; 
proceduie Frontscreen; 

begin 

clrscr; 

wr 1 1 e 1 n ; 

writeln; 

writeln; 

writeln; 

writeln; 

wi 1 teln; 



writeln ( * 








writeln ( * 


* UICP LEVELS FORECASTING 


*•}; 


writeln (* 




SIMULATOR 


*•); 


writeln (‘ 




FOR CONSUMABLES 


*'); 


wiiteln (’ 






*■); 


writeln ( ' 


* G. 


C. Roblllard LT, SC 




writeln ( ‘ 


‘ D. 


C. Miller LCDR,SC 




writeln ( ' 






*•); 


writeln ( ' 






*•) ; 


writeln ( ' 









DelaydSOO); (Foi 1500 ms) 
clrscr; 

end; 

procedure runtype {var distrType,outputType,wkDataType,qtrDataType, 

PDDataType, repStatType, ERRType,analIndType:char; 
var numberO f Ot rs , numberO fWks , numberOf Reps , seedi ndex : integer 
var meanDemand, varDemand: real ; 
var numYrsOH, numYrsERR : real; 
var inputfile, output file; text; 
var frcst,mad: quarterArray; 
var seeds ;seedAri-yType; 
vai outFileName: string; 
var runDescript : descriptType) ; 

var done: boolean; 

i ,maxStart : integer; 
demandInFi le; string; 

begin 
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W1 iteln; 

writeln (’ “* THIS SCREEN WILL ALLOW SELECTION OF RUN TYPE OPTIONS “**); 

done: =FALSE; 
wi 1 teln; 

writeln; writeln; 

write (’Entei the number of replications (from 1 to 750) to be run : * ) ; 
numberOf Reps : =Get_Integer (1,750); 
wi- i t e 1 n ; 

write ('Entei Run description: '); 

readln (runPescript); 

writeln; 

writeln (' Quarterly observations will be generated based on youi selection of di st i i but i on ' 

wr i teln ( ' ( Poi sson or Nonnal) and seed selection.'); 

writeln; 

repeat 

wi iteln ('Random Numbei Generatoi Seed Selection: ’); 

writeln; 

writeln (' 1 - Default array - unique seed for each replication'); 

writeln (' 2 - Select seeds - max numbei of replications is 100’); 

writeln; 

write ( 'Choice: ' ) ; 
seedtype: =readkey; 
writeln (seedtype); 
writeln; 

case seedtype of 
' 1 ' : beg i n 

done:=TRUE; 

maxStart : =20001 -numberOf Reps; 

write ('Enter Random Seed Start Index ( 1 to ’ .maxStart : 2, ' ): '); 
seedlndex:= Get_Integer ( 1 .maxStart) ; 
end; 

' 2 ' : beg i n 

done;=TRUE; 

if numberOf Reps >100 then numberOf Reps: =100; 
for i := 1 to numberOf Reps do begin 

write {'Enter Seed value for replication '.i,' : '); 
seeds(i) : =Get_LongInt ( 1 ,2147483646) ; 
writeln; 
end; (for) 

end 

end 

until done=TRUE; 
cl rscr; 

writeln (' **“ RUN SELECTION OPTIONS CONTINUED “*"); 

writeln; writeln; 

wi ite ('Entei the number of simulation quarters: ' ); 

numberOfQtrs; =Get_Integer (1,100); 

nuxnberOfWks: =13 ‘NumberOf Qtrs; 

writeln; 

done : = FALSE; 

repeat 
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wriceln '"Type of Distribution: '); 

wr 1 1 e 1 n ; 

writ el n (' 1 - Noimal'); 

wiiteln {' 2 - Poisson'): 

wr 1 1 e 1 n ; 

write ( 'Choice: ' ) ; 
di St rType : =readkey ; 
writeln (di strType) ; 
wr i t e 1 n ; 

case di St rType of 
' 1 ' : begin 

done: =TRUE; 

write I'Entei quarterly mean demand: '), 
meanDemand: =Get_Real (0. 0001 , 0) ; 
writeln; 

write ('Enter demand vaiiance: '); 
vai Demand; =Get_Real (0 . 0001 , 99<5999. 0) ; 
writeln 
end; 

' 2 * ; beg i n 

done:=TRUE; 

write ('Enter quarterly mean demv^nd; '); 

meanDemand; =Get_Real (0. 0001 , 99^^99. O) ; 

varDemand: =meanDemand; 

wiiteln; 

end 



end 

until done^TRUE; 
f rest ( 1 ) : =meanDemand; 

mad[l] :=COEFFl*exp(POWERlMn(f rest (!])); 
done:==FALSE; 



RUN SELECTION OPTIONS CONTINUED 



•); 



clrscr; 
writeln ( ' 
writeln; 
repeat 

wiiteln ('Initial Inventoi-y and Outstanding Reorders Selection: '); 
writeln; 

writeln (' 0 - Default: Initial Inv = EOQ + Safety stock'); 

writeln (' 1 - User specified Initial Inv. No Outstanding Reorders'); 

writeln; 

write ('Choice; '); 
anal IndType : =readkey; 
writeln (anal IndType) ; 
writeln; 

case anal IndType of 
•O'; done:=TRUE; 

' 1 ' : begin 

write ('Enter initial inventoi-y in years of annual demand : '); 
numYrsOH ; =Get_Real (0.0, 1000.0) ; 
done : =TRUE; 
end; 
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end; {c»,isp*} 
until done=TRUE; 
done : =FA LSE; 
cl 1 SCI ; 

done: = FALSE ; 
cl l SCI ; 

wiiteln (• *•** RUN SELECTION OPTIONS CONTINUED •“** 

wi iteln; 
i epecHt 



writeln 


('Type of Economic Retention 


Model Selection: 


writeln; 






wi Iteln 


(' 0 - No economic letention 


model used'); 


writeln 


( ' 1 - Navy UICP-B20' ) ; 




writeln 


(' 2 - Net Benefit Model'); 




writeln 


(' 3 - Modified Net Benefit 


Model ' ) ; 


wi Iteln 


(' 4 - NPV Net Benefit Model 


•); 


writeln 


(' 5 - Tradition Retention Model'); 


writeln 


(' b - Fixed Retention Requirement (in years) 


wi 1 1 e 1 n ; 






write (' 


Choice: ' ) ; 




ERRType: 


; =readkey; 




writeln 


(ERRType) ; 




writeln; 






case ERRType of 




•O' . . 


,'5': done:=TRUE; 




' tj ' ; 


begin 





wiitel' Enter retention requirement in years : '); 
numYrsERR;=Get_Real (0.0, 1000.0) ; 
done:=TRUE; 
end; 

end; (case) 
until done=TRUE; 
d FALSE; 
c i ; 

wiiteln (' **** RUN SELECTION OPTIONS CONTINUED *“** 

wr 1 1 e 1 n ; wr i t e 1 n ; 

repeat 

wr 1 1 e 1 n ; 

writeln (‘Send Output to: '); 
wr 1 1 e 1 n ; 

writeln (' 1 - Screen'); 
writeln (' 2 - File'); 
writeln; 

write I 'Choice: ' ) ; 
ou t put Type : =readkey; 
writeln (outputType) ; 
case outputType of 
' 1 ' : beg i n 

done:=TRUE; 

assign (output file, ' con' ) ; 
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end; 



• 2 ' T beg i n 

done: =TRUE; 

1 epe. 1 t 

wi 1 1 e I n ; 

wiite ('Entei Path and Filename: *); 

readln (outFi leName) ; 

writeln; 

writ el n ('Path and Fi leName entered: outFi leName) ; 

wllteln; 

writ»- ('Is this collect? (Y oi N} : '); 
until Get_Answer; 
assign (output file, out Fi leName) ; 
end; 

end; 

until done=TRUE; 
wkDataType: = • 0 ' ; 
wi iteln; 

wri te ( ' I nclude Weekly SDR Data? (Y or N) : '); 

if Get_Answer then wkDataType:='l'; 
qt 1 Dat aType : = 'O'; 
wi iteln; 

write (' Include Quarterly SDR Data? (Y or N) : ’); 
if Get_Answer then qtrDataType: =' 1 ' ; 

PDDataType : = * 0 * ; 
wi Iteln; 

wi ite {' Include Quarteily demand, forecast and PD82/8b Data? |Y oi N) : '); 
if Get_Answer then PDDataType:='l'; 
l epStatType: = ' 0 * ; 
writeln; 

write (' Include Replication Statistics? (Y or N) : ’); 
if Get_Answer then repStatTyp?: = * 1 * ; 
end; 



procedure RunAgain (vai output f i le : text ; var runDescript :de script Type; 
vai outputType, ERRType:chai ; 
var stop; boo lean; 
vai numYrsERR: real ; 
var out Fi leName: St ri ng ) ; 

vai- demandInFi le: string; 

donel ; boolean; 
begin 

stop; =FALSE; 
disc r ; 

writeln (' ““ RE-RUN SIMULATION OPTIONS SCREEN ); 

wi Iteln; 

wi 1 teln ( ' Re-running the simulation will maintain the same lun-type parameteis, but will' 
writeln ( 'allow the user to change the destination (output) file and vai^ NIIN'); 
writeln ('and model parameters. ' ) ; 
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wi iteln; 

wiir#^f'[»C' you wish i<^-iun *:h^ sitnui^it i> ■.. lY ji N 
if Get:_Answei then begin 

WMteln; 

wi 1 1 e ( ' Chcinge Run Description? (Y oi N) : 
if Get^Answei then begin 
wi iteln; 

wiite I'Entei Run Description: '); 
leadln ( runDescript ) ; 

end; 

wi Iteln; 
donel :=FALSE; 

write ( 'Change Economic Retention Model? (Y oi N) : '); 
if Get_Answer then begin 
wr iteln; 
write! n; 



done! : = FALSE; 
write In; 

1 epeat 

wi Iteln ('Type of Economic Retention Model Selection; ') 
wr Iteln; 

0 - No economic retention model used'); 

1 - Navy UICP-B20' ) ; 

2 - Net Benefit Model'); 

3 - Modified Net Benefit Model'); 

4 - NPV Net Benefit Model'); 

5 - Tradition Retention Model'); 

(5 - Fixed Retention Requirement (in years)') 



wr i t e 1 n ( ' 
writeln (' 
wr Iteln ( * 
writeln ( ' 

WI 1 1 e 1 n ( ' 
writeln (' 
writeln ( ' 
writeln; 

write ( ' Choice: ' ) ; 
ERRType : = 1 eadkey ; 
writeln (ERRType); 
writeln; 
case ERRType of 

'O' . . '5' ; donel:=TRUE; 



' 6 ' : begin 

write! 'Enter letention requirement in years : 
numYrsERR : =Get_Real (0.0,1 000 . 0) ; 
donel ;=TRUE; 
end; 

end; (case) 
until donel=TRUE; 
cl 1 sc r; 

writeln (' *“* RUN SELECTION OPTIONS CONTINUED ““') 

writeln; writeln; 



end; (if) 

if outputType= * 2 ' then begin 
writeln; 

write (' Change Output File? (Y oi N) : '); 
if Get_Answei then begin 
repeat 
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wi iteln; 

write ('Enter Output Path and Filename: '); 

readln ( out Fi leName) ; 
wi Iteln; 

wi Iteln ('Path and Fi leName entered: ',outFileName); 
wr 1 1 e 1 n ; 

write (*Is this correct? (Y or N): 
until Get_Answer; 
assign (output f 1 le. out Fi leName) ; 
end; 
end; 

end else begin 

stop: =TRLJE; 

end; 
cl 1 SCI ; 
end; 



function GetMarkCode ( t , oldMark : integer; frcst, uni t Pri ce : real ) : integei 
begin 

if t*l then begin 

if frcst V 0.25 then getMarkCode: =0; 
if (frcst '= 0.25) and (frcst * 2.0) then begin 
if (unit Price »= JOO.OO) then begin 
getMai kCode:=3 ; 
end else begin 

getMarkCode:=l ; 
end; 
end; 

if frcst >= 2.0 then begin 

if (unitPrice* frcst) >= bOO.O then begin 
getMarkCode : =4 ; 
end else begin 
getMarkCode: =2 
end; 
end; 

end else begin 

getMarkCode: =oldMark; 
if oldMark = 0 then begin 

if frcst >= 0,5 then begin 

if (unitPrice >= 300.00) then begin 
getMarkCode: =3 ; 
end else begin 

getMarkCode: =1 ; 
end; 
end; 

if frcst >=3 then begin 

if (unitPrice* frcst) ->= 600.0 then begin 
getMarkCode: =4; 
end else begin 
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getMarkCode : =2 



end; 

end; 

end; 

if (oldMark=l) oi (oldMaik=3) then begin 
if ficst *=3 then begin 

if (unitPrice* ficst ) >= bOO.O then begin 

getMai kCode : =4 ; 
end else begin 
getMai kCode: =2 
end; 

end else if unitPtice <= 200 then begin 
getMai kCode: =1 ; 

end else if unitPrice 400 then begin 
getMarkCode: =3 ; 

end; 

if frcst '= 0.25 then getMai kCode: =0 • 
end; 

if (oldMark=2) oi (oldMaik=4) then begin 
if frcst '-= 1.0 then begin 

if (unitPrice >= 300.00) then begin 
getMarkCode : =3 ; 
end else begin 

getMarkCode: =1 ; 
end; 

end else if ( un i t Price * frcst ) 800.00 then begin 

getMarkCode; =4 ; 

end else if (un itPrice* frcst ) <= 400.00 then begin 
getMarkCode ; =2; 

end; 

if frcst '= 0.25 then getMarkCode:=0; 
end; 

end 

end; 



procedure Initial izeArrays (var observ, EOQArry, ROLevel, SSADDBO, SSADD. 

SSSMA, ERRAri-yrquartei Array; 

var stepIndAri-y, trndIndArry ,mkCodeAi i'y: qti IntArray; 
numberOfOt rs , numberOfWks , nujnberRep; integer; 
meanDemand: real ; 
var wklyObserv:weeklyArray; 
var meanDmdAri*y» var[)mdArl•y:dtlarterArray; 
var totCost Arry , holdTCAri-y , orderTCArry , 
shortTCAri-y,salvTRAri'y , investOti , 
qtrSMA: quarterArray) ; 

vai t : integer; 
begin 

for t:=l to numberOfOtrs do begin 
observ(t) :=0. 0; 
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meantJmdAi iy( t ] : =0 . 0; 
vai [midAi ry ( t ] : =0 . 0 ; 

EOOAiry (t] :=0. 0; 

ROLevel (t ) :=0.0; 

SSADDBOft) ;=0.0; 

SSADDft] ;=0.0; 

SSSMAft) :=0.0; 
stepIndAri-y (t j :=0; 
ti ndlndAri-y (t ] :=0; 
mkCodeAri'y ft) : = 0 ; 
if numberRep = 1 then begin 
totCostAriYft ] :=0. 0; 
holdTCAii-y [t) ; = 0.0; 
ordeiTCAi ry [t ] : =0 . 0 ; 
short TCArry [t];=0.0; 
salvTRAriYlt ] :=0.0; 

ERRArry (t] :=0.0; 
investOtr ft ] : =0; 
qtrSMAft] :=0; 
end; {if} 
end; 

foi t:=l to (numberOfWks) do begin 
wklyObsei“v (t ) : =0 . 0; 
end; 
end; 

piocedui e LoadObsei“v (var obsei v, f rest ,inad:quarterAi i ay; 

var wklyObsei“v: week lyAi ray ; 

vai meanDmdAriY/ varDmdArry rquarterArray ; 

observType , di st rType : c har ; 

numberOfOtrs, numberOfWks, repNum, simCount : integer; 
var trendind, stepind, nmbrSteps, nmbrTrends : integer; 
meanDemand, varDemand: real ; 
vai input fi le: text ; 
var seeds: seedArryType; 

var startstep, start rnd, endtrnd: changelntAri-y; 
var stepmult, trendcoeff, trendpower: changeRealAriY) ; 

vai SS:chai; 

1 , t, min, obsei-vWeek: integer ; 

randnonn, currMeanDmd, initTrendMean, coeffVar, qtrObserv ; real ; 
demandInFi le: string; 

begin 

if (repNum = 1) and (simCount = 1) then begin 
for i:=l to 5 do begin 

startstepi 1 ] : =0; startrnd f i ) : =0 ; endtrnd(i]:=0; 
stepmul t ( 1 1 : =0 . 0 ; t rendcoe f f ( i ] : =0 . 0 ; trendpower [ i ]: =0 . 0 ; 
end; 
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runbi Steps : =0 ; 
nmbiTiends: =0; 
end : {if} 

cui i MeanDmd : =meanltemand; 

coef fVai :=sqj t (vai fiemand) /meanDemand; 

foi t;=0 to ( numbeiOfOt 1 s ) do begin 

if (t=0) and (lepNum = 1) and ( s imCount = 1 ) then begin 

wi iteln; 

wiitef'Do you wish to vary mean demand rate ovei time? (Y oi N) : ' ■ 
if Get_Answei then begin 
SS:='N* ; 

StepInd:=0; 
t 1 endind: =0; 
clrscr; 
wi 1 tel n; 

wi Iteln (' ‘‘* Mean Demand Variants *‘* '); 

wi i t e 1 n ; 

writeln ('You have the option to vai-y mean demand rate ovei time. If the noimal') 
wi iteln ( ‘dist 1 ibut ion was selected, variance will also change to maintain youi ' ) ; 
writeln ('original variance to mean ratio. You may choose between step change'); 
writeln ('or trend or any combination of the events. If more than one event is'); 
writeln ('chosen to occui at the same time, step changes will occur first.'); 
writeln ('A maximum of 5 occurances of each event is allowed.'); 
writeln; 

SS : = ' Y ' ; 

wi ite ('Do you still wish to vai-y mean demand rate ovei time? (Y or N) : '); 
if Get_Answer then begin 
SS : = ' N ' ; 
cl rsci ; 

writeln(' ‘** Step Changes Screen ***'); 

wi- i t e 1 n ; 

write ('Do you wish to have step increases or deci eases? (Y or N) ; '); 

if Get_Answer then steplnd:=l; 
if steplnd=l then begin 
writeln; 

write(‘Entei the number of steps changes desired (max 5): ' ) ; 

nmbrSteps: =Get_Integei (1,5); 

writeln; 

writeln ('The step function is of the foim: Mean(t) = A * Mean(t-l).'); 
wi iteln ('You must specify the value of *A' for each step.'); 
min: =1 ; 

foi i:=l to nmbrSteps do begin 
wiiteln; 

writeln (’Step ' , i , ' ; ' ) ; 
writeln; 

write ('Step quarter: '); 

start step! i ] ; =Get_Integer (min, numberOfOtrs) ; 
writeln; 

write ('Step Multiplier (A): '); 

stepmul t [ 1 1 : =Get_Real (0. 00001, ^'^^^.0); 
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wi 1 1 e 1 n ; 



min; = st..^i tstep I i | ■ 
end; 
end; 

'll SCI ; 

writelni' Trend Setting Screen 

wi 1 1 e 1 n ; 

wiite ('Do you wish to have trends? (Y or N) ; ' ) ; 
if Get_Answer then trendind: =1 ; 
if trend! nd=l then begin 
wiiteln; 

write (• Entei the numbei of trend periods desiied imax 5): ') 

nmbi 1 1 ends: =Get_Integer (1,5) ; 
write In; 

wiiteln('The tiend function is of the foim; ' ) ; 

writeln(' Mean(t) = Ini tTi endMean * ( 1 + A * t(0i *• B)')- 

wi iteln ( ■ whei e t(0) is reset to ’1* at the beginning of each tiend period'); 
wi'iteln ( ' and Ini tTrendMean is the Mean at the beginning of the tiend period.'); 
wi iteln (• Paiameteis A and B must be specified foi each trend period.'); 
min : = 1 ; 

for i;=l to nmbrtrends do begin 
wr 1 1 e 1 n ; 

writeln ( 'Trend ' , i , * ; ' ) ; 
wi Iteln; 

wiite ('Start quarter; '); 

startrndl i ) :=Get_Integer(min,numberOf0ti s) ; 
writeln; 

wiite ('End quarter: '); 

endt 1 nd I i ) : =Get_Integer (start rnd ( i ] , numberOfOt rs) ; 
writeln; 

write ('Trend coefficent (A): '); 

1 1 endcoef f [ i ) ; =Get_Rea 1 (-9'i9'5. 0,9^99.0) ; 
writeln; 

write ( 'Trend power (B) : ' ) ; 

1 1 endpower [ i ) : =Get_Real (-9999.0,9999.0) ; 
wi- 1 1 e 1 n ; 

min: =endt rnd I i ] ♦ 1 ; 
end; (for) 

end; (if trend=l) 

end; (if getans) 

end; (if getans) 

end else if t '0 then begin 
if SS='Y' then begin 

meanDmdArry | t ) : =mean Demand; 
if di strTyp^=' 1 ' then begin 
varDmdAriY ( t J : =varDemand; 
end else begin 

varDmdAri*y [t ] : =currMeanDmd; 
end; 

end else begin 

if steplnd = 1 then begin 
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foi i:=l to nmbrSteps do begin 



if t = startstep(i) then cui rMeanDmd: =stepmult [ i 1 ‘curiMeanDmd; 
end; 
end; 

if trendind = 1 then begin 

foi i;=l to mnbrTrends do begin 

if t = startrnd(i) then i n i tTi endMean : =cur i Meantnnd; 
if (t »= start rnd( 1 J ) and (t •= endtind(i)) then begin 
cui rMeanDmd: = initTrendMean* ( 1 + trendcoef f ( i ) ‘ 

{exT' (trendpower ( i ] * in (t -start rnd ( i ] 1 ) ) ) ] ; 
if curiMeanDmd * 0.0 then cuiiMeanDmd: =0 . 0; 
end; 
end; 
end; 

meanDmdAi ry ( t ) : =cui'i MeanDmd; 
if distiType=* 1 ' then begin 

varDmdAi ly 1 1 ) : =sqr (coef fVai * cur iMeanDmd) ; 
end else begin 

varDmdAri-y (t ) : =currMeanDmd; 
end; 
end; 

if di St rType= ' 1 ■ then begin 
randnorm: =GetNoi-mal ; 

qt rObserv : = round (meanDmdAi ry ( t } + ( randnonn* sqrt ( varDmdAriy ( t ] ) ) ) ; 
if qtrObsei-v < 0.0 then qt rObsei-v : =0 . 0; 
for i:=l to round (qt rObserv) do begin 
obseiA^Week: =GetUni fonnlnt ( 13) ; 
wklyObsei^ ( ( t - 1 ) * 1 3+obsei*vWeek] : = 

wklyObsei-v ( (t-1 ) * 13+obsei^Week] + 1 ; 

end; 

end (if) 

else if di st iType= ' 2 ’ then begin 

qtrObsei-v:=Get Poisson (meanDmdAriy (t ) ) ; 
for i; = l to round (qtrObsei-v) do begin 
obsei^Week: =GetUni formint ( 13) ; 
wklyObsei-v ( (t -1) * 1 3+obsei-vWeek) : = 

wklyObseiAT ( ( t -1 ) * 13 + observWeek) +1 ; 

end; 

end; {else} 
obsei"V [ t ) : =qt rObsei“v; 
end; {else, if) 
end; (for) 
clrscr; 
end; 



procedure Foiecast (var obseiAr, frcst, mad:quartei Array ; 

var stepIndArry, t rndIndArry ,mkCodeAriy : qtilnt Array; 
numberOfOtrs, repNum: integer; unitPrice: real ) ; 

const ALPHA=0.1; 
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STEPBOUNI) 1=3.0; 



3TEPBOUND2=2.0; 

vai uppei . lowe*i, sum, sampleMean, sampleStdDev , stdDevToMean : real ; 
uplnd, downind, steplnd, tiendlnd, trendUp, 
tiendDn, t, i, j, W, G, table: integer; 
kendTest , lowDemand: boo lean; 

begin 

writeln (' Running Replication X ',iepNum); 
mkCodeAri-y ( 1 ) ; =getMarkCode (1,0, f rest ( 1 ] ,uni t Pi ice} ; 
uplnd: =0; downind; =0; 

foi t;=2 to numberOfOtis do begin (Compute quarterly forecast) 

1 owDemand :=FALSE; 
trendlnd: =0; 
steplnd: =0; 

if ( (mkCodeAriy (t-1 ] = 0) or (mkCodeArry ( t - 1 ] = 1) or (mkCodeAri-y [ t - 1 ) =3)) then lowDemand: =TRUE; 
if lowDemand then begin 

upper : =STEPB0UND1 * frest ( t - 1 ] ; 
lower: =0.0; 
end else begin 

upper:=frcst ( t - 1 ) + 1 . 25 ‘mad 1 1 - 1 ) ‘STEPB0UND2; 
lower: =f rest (t- 1 ] - 1 . 25 *mad ( t - 1 ) *STEPBOUND2; 
end; 

if (lowDemand and (obsei^[t-l) < 5)) or 

( (obsei-v [ t - 1 ) ' uppei) and (observIt-1] »= lower)) then begin 
upl nd: =0 ; 
downind: =0; 

frest It): =ALPHA * obsei-v 1 1 - 1 ) + { 1 -ALPHA) * f rest ( t - 1 ) ; 
mad It ) :=ALPHA* (abs (obsei^ ( t- 1 )- frest ( t - 1 ))) + (1 -ALPHA ) *mad(t-l) ; 
end else begin 

if ( (observ It - 1 j > upper) and (uplnd=l)) or 

( (obsei-v [ t - 1 ) » lower) and |downInd=l)) then begin 
if t >4 then begin 

frest 1 1 ) ; = (obsei-v ( t-4 ] +observ ( t - 3 ) +obsei-v 1 1-2 1 +obsei“v 1 1 - 1 ] ) / 4; 
end else if t = 4 then begin 

frest 1 1 ] : = (obsei-v ( t - 3 ) +observ ( t-2 ! +observ ( t - 1 ] ) /3; 
end else if t = 3 then begin 

frest (t ] : = (obsei-v ( t-2 ) +obsei-v (t - 1 ) ) /2; 

end; 

if frest (t) = 0.0 then mad [t): =0.0 
else mad( t ) : =C0EFF1 * exp ( POWER 1 ‘ In ( frest It ) ) ) ; 
steplnd: =1 ; 
uplnd; =0; 
down 1 nd : = 0 ; 
end else begin 

if ( (obsei-v 1 1- 1 ] > upper) and (uplnd=0)) then begin 

up 1 nd : = 1 ; 

frest [t 1 :=frcst (t-1 ) ; 
mad It): =mad 1 1 - 1 ) ; 
end else begin 
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jf ( ( obsei'V ( t - 1 1 lower) and (downlnd=0) ,■ then begin 

down 1 nd : = 1 ; 
f r cst (t ] :=frcst (t-1 ) ; 
mad ( t ] : =mad ( t - 1 ) ; 
end; 
end; 
end; 
end; 

if (t'4) and (steplnd=0) then begin {Conduct Kendall Trend Test} 

sum; =0.0; 

i f t ' = 8 then begin 

foi i:=I to t-I do begin 
sum: =sum+observ (i); 
end; 

sampleMean: =sum/ ( t -1 ) ; 
sum: =0.0; 

for i:=l to t-1 do begin 

sum: =sum+sqr ( observ [ i ] -sampleMean) ; 
end; 

sampleStdDev: =sqrt (sum/ (t-2) ) ; 
end else begin 

for i:=t-B to t-1 do begin 
sum: =sum+obsen^ ( i } ; 
end; 

sampleMean: =sum/8; 
sum: =0.0; 

for i:=t-B to t-1 do begin 

sum: =sum+sqr (observ ( i ) -sampleMean) ; 
end; 

sampleStdDev: =sqrt ( sum/7 ) ; 
end; 

if sampleMean > 0.0 then begin 

stdDevToMean : =sampleStdDev/ sampleMean 
end else begin 

s t dDevToMean : = ^ 9 9 9 . 0 
end; 

kendTest ;= false; 

if (sampleMean »= 3.0) and ( stdDevToMean <^= 1.75) then begin 
kendTest : =true; 

if StdDevToMean > 1.0 then begin 
table : =3 ; 
end else begin 
table: =2; 
end; 
end; 

if ((sampleMean »= 1.0) and (sampleMean * 3.0)) and 
(StdDevToMean <= 1.75) then begin 
kendTest : =true; 

if StdDevToMean » 1.25 then begin 
table:=3; 
end else begin 
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table:=2; 

end; 

end; 

if ( ( sampl eMean •= 0.125) and (satnpleMean I . u and 
( stdDevToMean < = 2.00) then begin 
kendTest : = t rue.- 
table: =2; 
end; 

if kendTest =t lue then begin {Conduct Kendall S-Test for Trend) 

W:=8; 

if (sampleMean =>= 3.0) and (sampleMean < <^.0) then begin 
if (StdDevToMean • 0.30} then W:=o; 

end; 

if (sampleMean '= <5.0) and (sampleMean * 20.0) then begin 
if (StdDevToMean ' O.'^j) then W;=t»; 

if ( stdiJevToMean « 0.28) then W:=4; 

end; 

if (sampleMean »= 20.0) then begin 

if (StdDevToMean 0.53) then W:=6; 

if (StdDevToMean « 0.28) then W:=4; 

end; 

If W > (t-1) then W:=((t-1) div 2)*2; 

S:=0; 

for i:=(t-W) to (t-2) do begin {Compute Kendall 5-Statistic} 

foi 3 :=(i+l) to (t-1) do begin 

if obsei-v{i) * obseiv[j] then S:=S+1; 
if obsei-v(i] > obsei“v[ 3 ] then G:=S-1; 
end; 

end; (for) 

if table = 2 then begin 
if W = 4 then begin 

trendUp:=4; trendDn : =»-4 ; 
end; 

if W = 6 then begin 

t rendUp : = 9 ; t rendDn : = - 9 ; 
end; 

if W = 8 then begin 

tiendUp:=13; t rendDn; =-13; 
end; 

end else begin 

if W = 4 then begin 

trendUp:=b; trendDn;=-b; 
end; 

if W = b then begin 

trendUp:=ll; trendDn:=-ll; 
end; 

if W = 8 then begin 

trendUp:=lb; t rendDn :=- 1 b ; 
end; 

end; {if} 
trendind: =0; 
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tf S »= ti endup then trendlnd:=l; 



if S'* tiendDn then trendlnd:=l; 
if tiendlnd =1 then begin 
sum : *0 . 0 ; 

foi i:=(t-4) to It-l) dc begin 
sum: =sum+obsei V [ i ) ; 
end; 

f rest ( t 1 : =sum/4 ; 

if ficstlt} = 0.0 then mad[t);=0.0 
el se mad( t } : *C0EFF1 ‘exp ( POWER 1 * In ( f i cst 1 1 ) ) i 
end; (if) 
end; (if) 
end; (if) 

mkCodeAri-y (t ] : =getMarkCode It ,mkCodeAri-y (t-1 ] , frest [t ) ,unitPi ice) " 
steplndAi i^' (t ] :=steplnd; 
ti ndlndAi i-y [t I :=ti endlnd; 
end; (for) 
end; 

procedure LoadLevels (vai ficst, mad, obsei~v, EOQAriy, ROLevelArry, 
SSADDBO, SSADD, SSSMA ; quart ei An ay ; 
var mkCodeArray :qtrIntAi lay; 
vai numberO f Ot rs : i nt eger ; 
pibBrkPt ; integer; meanDemand: real ; 

PDDat aType : chai ) ; 

vai A023B.BRLDC,B01 1A,B019A.B023C,B023D.B073,M.PPV.B019,B021,BRLDCU; real; 



PD82strl : 


St i ing (24 ) ; 


PD82sti2, 


PEJ82sti-3, PD82str4 


PD82str8: 


string (255] ; 


PD86strl : 


St ring (24 ] ; 


PD8bstr2, 


PD8bstr3, PD8bstr4 


PD8bstr8: 


string (255) ; 


PD86str9: 


string (bO } ; 



inf 1 le , out file: text ; 
LTVar:real; 
t : integer; 



PD82str5. PD82strb. PD82str7, 



PD8bstr5, PDBbstrb, PD86str7, 



begin 

for t:=l to numberOfOtrs do begin 
gotoXY(l,3) ; 
write ( 'Quarter B */t); 
assign ( inf i le, *pd82in. f i 1 ' ) ; 
reset ( inf i le) ; 

readlinf ile,PD82strl, PD82str2, PD82str3, PD82str4, PD82sti5, PD82strb, 
PD82str7, PD82str8) ; 
close (infile); 

B023D: =f rest (t 1 ; (cuirent quaiterly foiecast) 
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A023B:=me.HnDem.^nd; 



if t >4 then begin 

A02 JB; = (obsei V 1 1 - 4 ) +obsei v ( t - J ) +observ ( t - ^ J +obsei-v ( t - 1 ) ) / 4 ; 
end else if t = 4 then begin 

A02JB: = {obsei V ( t -3 ) -obseiv 1 1 -2 ) +observ ( t - 1 ) ) /3 ; 
end else if t = 3 then begin 

A023B; = (obsei v [t - 2] -fobsei-v ( t - 1 ] 1 / 2; 
end; 

if A023B *= 0.0 then A023B; = 1.0; 

St iTemp: =copy ( PD82st r2 , 4b , 15) ; BOl lA: =St i i ngToRe.^ 1 (St iTemp) ; 
B023C:=B011A*B023D; 

PPV:=B023C; 

delete { P[)82st i 2 , 1 , 1 5 ) ; 

1 nsei t (NumToSt 1 ing (A023B) , P[)82st i 2, 1 ) ; 

delete (P[)82sti 2, 121 , 15) ; 

insert (NumToSt ring (B023D) , PDB2str2, 121 ) ; 

del*^te (PD«2str2, lOfa. 15) ; 

insei t (NumToSt ring (B02JC) , PD82sti 2 ,10b); 

delete (PD82str5,‘^l,15); 

insert (NumToSt r ing ( PPV) , PD82st r5,9l); 

M: =mkCodeAri-y (t ) ; {current mark code) 

delete (PD82str4 ,24 1 , 15) ; 

insert (NumToString (M) , PD82str4 , 241 ) ; 

if (mkCodeAri'y (t 1 = 2) oi (mkCodeArry ( t ) =4 ) then begin 
LTVar: = 1.57*B011A; 

B019A:=B011A* (sqi (mad ( t j ) * 1 . 57 ) + ( sqr ( f rest 1 1 ) ) ) ‘LTVar; 
end else begin 

if abs(B023C)* ERROR then B023C:=0.0; 
if B023C=0.0 then begin 
B019A:=0.0 
end else begin 

B019A;=COEFF2*exp(POWER2* ln(B023C) ) 
end; 
end; 

delete (PD82str2,7b, 15) ; 
i nsert (NumToString (BOl 9A) , PD82st r2 , 7 b) ; 
if mkCodeAri-y It ] = 0 then begin 
BRLDC:=3; 
end else begin 

if pibBrkPt = 0 then begin 
BRLDC;=5; 
end else begin 

if B023C « prbBrkPt then begin 
BRLDC:=4; 
end else begin 
BRLDC:=5; 
end; 
end; 
end; 

delete (PD82sti2, lb, 15) ; 

insert (NumToString (BRLDC) , PD82sti2, 16) ; 
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assign (out f i le , ' in . f 1 1 * } ; 
rewi 1 te (out file); 

wi iteln (out f 1 le , PD82strl , PD82sti^’, PD82str3, PD82str4. PC)82str5, P082strb, 
PD82sti7, PDB2stlb); 
close (out file); 

SwapVectors; 

exec ( 'd; \uicp\PPI)82KR0 . exe ■ , 'd: \uicp pd82in. f i 1 pd82out.fil ’ ); 

SwapVectoi s; 

if DosEiroi - ' 0 then begin 
wi 1 1 e I n ; 

Sound (220 I : 
delay (300); 

NoSound; 

write In ('Dos eiroi tt ' , DosError); 

HitToCont ; 

end; 

assign ( in f i 1 e , ' pd82out . f i 1 ' ) ; 
reset (infile); 

readfinf i le, PD82strl , PD82str2, PD82sti 3, PD82str4, PD82str5, PD82strt>, 
PD82str7, PD82str8) ; 
close (infile); 

strTemp: =copy ( PD82st i7 , 1 9t>, 1 5) ; BO 1 : =Str ingToReal (StrTemp) ; 

ROLevelAriY(t) :=B01<^; 

StrTemp: =copy ( PD82str7 , 22b .15); B021 : =Str ingToReal (StrTemp) ; 

EOOArry (t) :=B021; 

StrTemp: =copy ( PD82str7 ,121,15); BRLDCU: =Str ingToReal (St rTemp) ; 
if PDDataType = '1' then begin 
InitPDBbFile; 

SwapVectors; 

exec ( *d: \uicp\PPD8bKR4 . exe ' , 'd: \uicp pd8bin.fi! pd8bout.fi! ' ); 
SwapVectors; 

if DosError « > 0 then begin 
wiiteln; 

Sound (220) ; 
delay (300); 

NoSound; 

wiiteln ('Dos eiroi W ' , DosEiror); 

HitToCont; 

end; 

assign ( in f i le , ' pd8bout . f i 1 ' ) ; 
reset ( inf i le) ; 

read ( inf i le, PD8bstrl , PD8bstr2, PD8bstr3, PD8bsti4, PD8bstr5, PD8bstrb, 
PD8bsti7, PD8bstr8, PD8bstr9); 
close (infile) ; 

St rTemp: =copy(PD8bstr8, Ibb, 15) ; SSADDBO[t] :=Str ingToReal (StrTemp) ; 
stiTemp:=copy (PD8bstr8, 181,15); SSADD[t) : =Sti ingToReal (StrTemp) ; 

St rTemp: =copy ( PD8bst i 8 , 19b , 15) ; SSSMA ( t ) : =Str ingToReal ( StrTemp) ; 
end; 
end; 
end; 
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procedure ComputeERR { vai ROLevel Ar ly , EOQAi ry , f rest , Mad, ERRArryrquartei Array; 
vai mkCodeAriy :qtrl ntArray ; 

vai qtr,OHCuri , disposals, di sposalCount ,qt rDi spose : integer 
ERRType:chai ; 

un 1 1 Pi ice ,ordei Cost , holdFrac, short Cost , salvRate , 
PLT,obsolRate,discRate,numYi sERR,mi 1 Essent : rea 1 ) ; 

vai W1 1 ,W1 , ERR ,TZero ,duimny real ; 

pGtockOut , Z, LTD, LTVai , sigmaLTD, pdfZ , pi obShort ,expShort : i ea 1 ; 
fDblPrimeOfT, f Pi imeOfT,Tn ,Tnl , i,k,P,F,R,Q,C,Ps,M,t , delta: real ; 

begin 

case ERRType of 

•O': begin {no disposal) 

ERR:=OHCun ; 

ERRAri-y [qti ) : =ERRAi i~y [qtr ) + 0; 
end; { case 0) 

• 1 • : begin ( uicp) 

W1 I ; = 4 * frest [qtr ) ; 

WI := YRSERR * WII; 

if W1 . MINERR then ERR:=W1 

else ERR:=MINERR; 

ERRAriy [qtii ;=ERRAriy Iqtr) + YRSERR; 
end; (case 1} 

‘ 2 ' : begin {net ben) 

if ( frest [qtrl <> 0) and {EOQArry [qtr) <,.>0) then begin 
TZero: = { (unit Price - (unit Price * salvRate) + 

(orderCost / EOQAi ly [qtr ) ) ) / (unitPrice * holdFrac)) 
{EOQArry [qtr) / iS * f rest [qtr })) ; 

ERR:=TZero * A * frcst[qtr); 

ERRAriy [qtr) :=ERRAny [qti ] + TZero; 
end {if) 
else begin 
ERR :=1; 

ERRAriy [qtr) : =ERRAriy [qtr) + 0; 
end; {else} 
end; {case 2) 

' 3 • : begin {mod nb) 

pStockOut ; = (holdFrac*unitPi ice) / 

( ( holdFrac* uni t Pi ice) + ( shortCost ‘mil Essent ) ) ; 
Z:=ZInv(p5tockOut) ; 

LTD: =f rest [qtr) *PLT; 

if (mkCodeAriy [qtr ) = 2) or (mkCodeAriy [qtr ] =4 ) then begin 
LTVar;=1.57*PLT; 

sigmaLTD: =sqrt { PLT* (sqr (mad [qtr) ) * 1 . 57) + ( sqr { frest [qti ) ) ) 
‘LTVar) ; 
end else begin 

if abs ( LTD) < ERROR then LTD : =0.0; 
if LTD=0.0 then begin 
SigmaLTD: =0. 0 



128 



enn <?ls^ begin 

sigtn.HLT[»:=sqi t (COEFF:"exp(POWER2* ln(LT[): i ■ 
end; 
end; 

pdf2:=ZPdf IZ) ; 
pi obShoi t : =utNoi 1 (Z) ; 

expShoi t : = ( LTD - ROLevelAi ly Iqtr] ) *pi obShoi t + sigmaLTD'pdfZ; 

If (frcst[qti) « - 0) and ( EOQAi i-y {qt r) * -0) then begin 
TZei o:= (unitPi ice* ( 1-salvRate) ) / (unitPi ice'holdFiac) * 

EOQAi ly Iqti ) / (2 * 4 * f rest Iqti ] ) + 

(ordeiCost+shoi tCost 'expShoi t) / 

( EOOAi i-y Iqtr] * un 1 1 Pr i ce * holdFrac) ; 

ERR : =TZero * 4 * f rest [ qt r ] ; 

ERRAi i-y iQti ] ; =ERRAri“y [qtr I + TZero; 
end Ilf) 
else begin 
ERR : = 1 ; 

ERRAri“y Iqtr] ;=ERRAri-y [qtr] + 0; 
end; (else) 
end; (case 3) 

' 4 * : beg i n 

i:=infRate; k:=discRate; P: =uni t Pr i ce; F:=holdFrac; 

0: =EO0Ari-y Iqti ] ; R: =4 * f rest Iqtr] ; C: =orderCost ; del ta : =^^0000 ; 

Ps : =uni t Price* sal vRat e; M: =4 * f rest Iqti] * numYi sOH; 

if (f rest Iqtr] < » 0) and ( EO0Ari“y |qt r ] - > 0) then begin 
t ; = ( (unitPi ice - (unitPi ice * salvRate) + 

(orderCost / EOOAri-y |qt r] ) ) / (unitPrice * holdFrac)} + 

( EOOAri-y Iqtr] / (8 * f rest Iqtr ])) ; 

Tn:=t; 

dummy : = ( exp ( ( ( i -k) * 0) /R) - 1 ) ; 
fDblPrimeOfT:=l; 

while (delta ^0.01) and (dummy «k> 0) and (Tn ^ ERROR) 
and (abs ( fDblPrimeOfT) > ERROR) do begin 

fPrimeOfT:=( (P*F*R) / (2*k) -(P*F*t *R) /2) *exp(-k*t)+ 

( (P*F*0)/2+(P*0* (i-k)+C* (i-k))/ 

(exp( ( (i-k) *0) /R)-l) ) *exp( (i-k) *t) 
-Ps*R-(P*F*R)/(2*k) ; 

fDblPrimeOfT;=P*F‘R* ( (k*t-l)/2) *exp(-k‘t) > 

( (P*F‘0* ( i-k) )/2+(P*0*sqr (i-k)+C*sqr(i-k) }/ 

(exp( ( (i-k) *0) /R) -1) ) * exp( (i-k)*t); 

Tnl :=Tn-fPrimeOfT/fDblPrimeOfT; 
delta; =abs ( Tn 1 -Tn ) ; 
t : =Tn 1 ; 

Tn : =Tn 1 ; 

dummy := (exp ( ( I i -k) *0) /R) -1 ) ; 
end; (while) 

if Tnl > ERROR then begin 
ERR : =Tn 1 * 4 * f rest Iqtr] ; 
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ERRArry [qtrl : =ERRArry (qt r] + Tnl; 
end (if) 
else begin 
ERR : = 1 ; 

ERRAriy (qt 1 ] : =ERRAi ly (qti ] + 0; 
end; (else) 
end (if) 
else begin 
ERR:=1 ; 

ERRAri-y [qtr ) : =ERRAriY [qtr } -t- 0; 
end; (else) 
end; (case 4) 

' 5 ' : begin ( tiad) 

TZero: = ln ( (salvRate* (discRate+obsolRate) -t-storRate* ( 1 -obsolRate) * 
( 1 +discRate) ) / (discRate+obsolRate+stoiRate* 

( 1 -obsolRate) * ( 1+discRate) ) ) /ln( ( 1 -obsolRate) / 

( l-*-discRate) ) ; 

ERR: =TZero‘ 4 * f rest (qtr) ; 

ERRArry [qti ] : =ERRAriY(qtr} + TZero; 
end; (case 5} 

' 6 ' : begin { fixed) 

ERR: =nuitiYrsERR* 4 ‘ f rest (qtr] ; 

ERRArx-y [qtr 1 : =ERRAriY [qtr } + numYrsERR; 
end; (case 6) 
end; (all cases) 
if ERR » MINERR then ERR:=ERR 
else ERR:=MINERR; 
if OHCuri • ERR then begin 

di sposalCount : =di sposalCount + 1; 

di sPosal s : =di sPosal s + (OHCurr - round(ERR)); 

qtrDispose:=OHCui 1 - round (ERR); 

OHCuir: =round (ERR) ; 
end; (if) 
end; (compute ERR) 



procedure SDR(var OSHeap, BOHeap: Priori tyOueueType; 
var wk lyObsei-v: week lyAr ray; 

var EOOAi iy» ROLevelAriY»obsei-ve, frest , ERRAriY^qviai terArray ; 
var numberOfOtrs, i ni t Inv , orderCount : integer; 
var disposals, di sposalCount : integer; 

meanDemand, rat ioPLTSTDMU, unit Price, orderCost ,holdFrac: real ; 

short Cost , salvRate, PLT, obsol Rate,discRate : real ; 

var numYrsERR, numYrsOH: leal ; 

mi 1 Essent : real ; 

var TWUS,endOH,endOS: integer, • 

var ADDBO,ADD, SMA, Invest : real ; 

wkDataType,qt rDataType , out put Type, ERRType , anal Indtype : char; 
var tot Cost , holdTC,orderTC, shoi tTC, salvTR: real ; 
vai totCost AriY. holdTCAriY , orderTCAriy , short TCAi iy. 
salvTRArry , investOti’,qtrSMA :quarterArray) ; 
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VcHi wK. 1 yBC , wk 1 yOG : d<=i t i ecord; 

.mtBO,atni:R«f'CV, it-ceipt ,wkly[)em»^\nd,'iv=ite, initOidex s, initOS: int^gei 
wk,qt 1 , SI zeOG, si zeBO.qti t)i spose , numbei OS ,d^^y ; integer; 

1 i^indnoini. i i=mdPLT, wkly I nvest , qt i I nvest , i epi nvest , i eordeiTime : i e.=t I ; 
fi ag 1 , f 1 ag2 : boo 1 ean ; 

BOFil 1 ,dindTot ,OSTot ,OSCui i ,BOTot , BOCuri ,OHcui i ,OHPi ev, IPcui r, IPPi ev; integei 
cumBO, cumRO, cumHC, cumSR, order Intei^val : real ; 
stai t Int , intLength: real ; 



begin 

Set Seed (seedArryf number Rep] ) ; 

OSCuri : -0; 

OSTot : =-OSCuri ; 

in it Inv; = round(numyi sOH* frcst 1 1 1 *4) ; 

Initial 1 zePrioi i tyQueue (OSHeap) ; Initial! zePi iorityOueue ( BOHeap) ; 
if anallndType =: 'O' then begin 

ini t Inv: =^round ( EOOAri-y 1 1 ) + ROLevelAn-y(ll-frcstll]‘PLT); 
numberOS: - round ( PLT/ ( EOQAri-y ( 1 ] / frcst [ 1 ) ) ) ; 
if numberOS <> 0 then begin 

for i:= 1 to numberOS do begin 
wk 1 yOS . Qt y : = 1 ound ( EOQAr ly 1 1] ) ; 

if (PLT - (i-1) * ( EOQAri-y [ 1] /f rest 1 1] ) ) ■ 0 then begin 

day : = round (PLT - (i-1) * ( EOQArry 1 1 ] / f rest 1 1 ) ) ) ‘ 13 + 1; 
wk 1 yOS . Wee k : =-day ; 

I nsert Prior i tyOueue (OSHeap, wklyOS) ; 

OSTot := OSTot * wklyOS.Oty; 

OSCurr.’s- OSCurr + wklyOS.Qty; 
end; (if) 
end; (for) 
end; (if) 
end; (if analind) 

if (qtrDataType = M') or (wkDataType = '1') then begin 
wr iteln (output file); 

wr 1 teln (output f i le SDR Data Initial OH Inv:- ',initlnv,' Initial On Oider:- 

wr Iteln (output file,' 

end; 

OHCurr ; -init Inv; 

OHPrev:=OHCurr; 

BOCurr:=0; 
repl nvest 0.0; 

BOFil 1 := 0; 

TWUS:^ 0; 

ADDBO;» 0; 

ADD;= 0; 
cumBO: =-0.0; 
cumRO; =0 . 0; 
cumHC; =^0.0; 
cumSR : - 0 . 0 ; 
dmdTot : =-0; 

SMA:* 0; 

BOTot :=0; 



• , OScuri ) 
---•); 
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disPosals;=0; 
disposalCount : =0; 

I PCurr : =OHCurr+OSCuri ; 
I PPi ev; = I PCurr ; 



foi qti := 1 to nuinberOfOtrs do begin 
if wkDataType = ’1' then begin 
wr It el n (output file) ; 

writeln (outputf i le, ‘OTR WK REC DEM BO OS OH IP ORDCNT OST BOTOT TWUS ‘ 

end; 

qt 1 Invest : = 0.0; 
qtrDispose: =0; 
wklylnvest;= 0.0; 

if (analIndType = '1') and (qtr = 1) then 

ComputeERR (ROLevelAri-y , EOQArry , frost ,Mad, ERRAi i-y .mkCodeArry ,qtr, 

OHCuri , di sPosa 1 s , di sposa 1 Count . qt rDi spose . ERRType , 
uni t Price, orderCost , holdFi ac , shortCost , salvRate, PLT, 
obsolRate,di scRate, nuxnYi sERR ,mi 1 Essent ) ; 
if (analIndType = '1') and (qti > 1) then ERRAri-y (qtr) : =0; 
if (((qti+1) mod 2) =0) and (analIndType = *0') then 

ComputeERR (ROLevel Ari“y , EOOAri-y, frost ,Mad, ERRAri-y ,mkCodeAiry,qtr, 

OHCurr ,di sPosals,di sposa 1 Count , qtrDispose, ERRType, 
unitpi ice, ordei Cost , ho IdFrac, shortCost , sal vRate, PLT, 
obsolRate ,di scRate , numYrsERR , mi 1 Essent ) ; 
if (((qtr+1) mod 2) ' 0) and (analIndType = ’0*) then 

ERRAri-y (qtr) :=ERRAri-y (qtr-1] ; 

for wk;= I to 13 do begin 

wklyDemand; =round(wklyObserv (date) ) ; 

dmdTot:= dmdTot + wklyDemand; 

receipt : =0; 

amtRecv; =0; 

amt BO : = 0 ; 

wklyBO.Qty : =0; 

wk 1 y BO . Wee k ; =da t e ; 

wklyOS.Oty:=0; 

flagl :=FALSE; f lag2;= FALSE; 



if not (EmptyPriorityOueue(OSHeap) ) then begin (leceive) 

repeat 

if CurrWeek (OSHeap) = date then begin 
amtRecv : =Ext ractQty (OSHeap) ; 
receipt :=amtRecv; 

OSCuir:= OSCuri - amtRecv; 

while (amtRecv » 0) and not ( EmptyPriorityQueue (BOHeap) ) do begin 
if Cur rOty (BOHeap) «= amtRecv then begin 
amt BO ; =CurrOty ( BOHeap) ; 
amtRecv:= amtRecv - amt BO; 

BOCurr:= BOCurr - amt BO; 

BOFill:= BOFill + amtBO; 

TWUS:= TWUS + (amtBo* (date - Ext ractWeek ( BOHeap) )) ; 
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end else begin 

BOHe^’ip. He<^pAi i <sy 1 1 J . Oty : = BOHecip. HeapAri ay ; ! t . 'jty - amtRecL 
TWUS:= TWUS ♦ f aint Recv ‘ i dat e - BOHeap. HeapArray ( 1 1 . Week ) i • 
BOCuii:= BOCui I - amtRecv; 

BOF 1 1 1 : = BOFill + amtRecv; 

<.\mtRecv:= 0; 
end; (if) 
end; {while) 

OHPrev:=OHCurr; 

OHCui i : =OHCurr + amtRecv; 
end; 

if EinptyPrioi ityOueue (OSHeap) then flag2:= TRUE 
else if currWeek (OSHeap) date then flagl:=TRUE; 
until flag! oi flag2; 
end; (if leceive) 

if wklyDemand • 0 then begin {issue) 

if wklyDemand ' OHCui i then begin 
wklyBO.Oty : = wklyDemand - OHCurr; 

OHCuri:=0; 

I nsert Pi i or ItyOueue (BOHeap.wklyBO) ; 

BOTot;=BOTot + wklyBO.Oty; 

BOCul i : =BOCurr + wklyBO.Qty; 
end (if) 

else OHCurr: = OHCuri - wklyDemand; 
end; {if issue) 

I PPrev : =I PCurr ; (order) 

{ if wk=13 then begin ) { f oi quarterly SDR) 

IPCuir:= OHCuri + OSCuri - BOCurr; 

if I PCurr «.= ROLevelArry (qti) then begin 

wklyOS.Qty:=round(ROLevelAri-y [qtrl + EOOAri-y [qtr] } + BOCurr - 
(OHCurr + OSCurr) ; 
randnoiin:= rJoimal; 

randPLT: =abs ( PLT+ ( randnonn* i at loPLTSTDMU* PLT) ) ; 
if randPLT * MAXPLT then begin 
randPLT: =MAXPLT; 

end else if randPLT < MINPLT then begin 
randPLT: =MINPLT 
end; 

wklyOS. Week: =date + round { randPLT* 13 ) + 1; 

Insert Pr iorityOueue (OSHeap, wklyOS) ; 

OSTot:= OSTot + wklyOS. Qty; 

OSCurr:= OSCurr + wklyOS. Oty; 
orderCount:= orderCount + I; 
end; (if) 

( end;} (for quarterly SDR) 

if wkDataType = '1* then begin 

wri teln (output f i 1 e, qt r : 3 ,date : 5 , receipt : b , wklyDemand: t , BOCui r : b , 

OSCurr : b , OHCuri : b , I PCurr: b , orderCount : b , OSTot : b , BOTot : b ,TWU5: b) ; 
if (outputType = ’1') and ( (wk mod 13) = 0) then begin 
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HitToCont ; 



wi it^ln(outputfile) : 
end; (if) 

end; 

{test code only) 

{ SI zeBO; =Si zePi loi ityOueue (BOHeisp) ; 

SI zeOS: =Si zePi lori tyOueue (OSHe.^p) ; 

writeln (output fi le, 'BO 0 Wk; ' . currWeek ( BOHeap) : 3 , ‘ BO Q QTY : ' , currOty ( BOHeap) : 3 , 

' Sz: *,sizeBO:3, ' OS 0 Week: ‘ , cui i Week (OSHeap) : 3 , ' OS C OTY; 
currOty (OSHeap) ; 3 , ‘ Sz: ',sizeOS); 
writeln (output fi le) ; } 

receipt: =0; 
date : =date+ 1 : 

wklylnvest:= wklyinvest + OSCurr + OHCuir; 

{ cumBO: =cumBO + ( (wkTWUS/52) * shortCost )* exp ( ~di scRate/52 ‘date) ; ) 

cumBO: =cumBO ( (BOCui r/52) * shortCost ) * exp ( -di scRate/52 *dat e) ; 
cumHC:=cumHC + (OHCurr* (holdFrac*unitPrice) /52) *exp(-discRate/52*date) ; 
if wklyOS.Qty * 0 then 

cumRO: =cumRO + (unitPrice*wklyOS.0ty + orderCost) ‘exp(-discRate/52‘date) ; 
end; (for week] 
qtrlnvest:= wkly Invest/13 ; 
investOtr Iqtr] : =investQtr (qtr) +qtrlnvest ; 
replnvest:= repinvest qti Invest; 

cumSR: =cumSR (uni tPrice * saivRate*qtrDispose*exp( -discRate* (qtr-1) /4) ) ; 
totCostAri-y [qtr ]: =totCostAri-y Iqtr 1 + cumBO+cumRO+cuitiHC-cumGR; 
holdTCAi ly [qti ] : =holdTCAri-y Iqtr 1 + cumHC; 
orderTCAri-y Idtr ] : =oiderTCAri-y [qtr I + cumRO; 
shortTCAri-y [qtr] : =shortTCAri"y (qtr) cumBO; 
salvTRAri-y l^ltr] : =salvTRAi i-y [qt 1 ] cumSR; 
if BOFill << 0 then ADDBO: =7 * (TWUS/BOFi 1 1 ) ; 
if dmdTot « * 0 then begin 
ADD: =7* (TWUS/dmdTot ) ; 

SMA:=1 - BOTot/dmdTot; 
qtrSHMqtr) : =qt rSMA (qtr ) +SMA; 
end; (if) 

if qtrDataType = then begin 

if (qtr=l) or (((qtr-1) mod 20 ) = 0)then begin 
writeln (output file) ; 

writeln (outputfi le, 'OTR DMD OH IP OS BO ADDBO ADD SMA INVEST DISP 
end; 

if (qtr » I) and (wkDataType = 'I') and not(( (qtr-1) mod 20) = 0) 
then begin 

wri te In (output fi le) ; 

writeln(outputf lie, 'OTR DMD OH IP OS BO ADDBO ADD SMA INVEST DISP 

end; 

end; 

if qtiDataType = ‘1* then 

wri tel n (output f i le,qt r : 3 , obsei-v [qt r] : b : 0, OHCurr : 6, 1 PCurr : b , 

OSCurr: b, BOCurr: b,ADDBO:7:2,ADD:7 :2,SMA:7:2,qtrInvest :9:2, 



ERR • ) ; 



ERR • ) ; 
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qt I Dispose : b . ERRAriy (qt r ) : : 2 ) ; 
if (outputType = '1') (qt iD.^taType =*1*| and 

notiqti = 1) .ind (((qti-1) mod 20) = 0) then begin 
HitToCont ; 

wi iteln (output file) ; 
end; (if) 
end; { foi qtr} 

Invest : = i epi nvest /numberOfOt i s; 
endOH: =OHCurl•; 
endOS: =05Cui r; 

totCost :=cumBO+cumRO+cumHC-cumSR; 

hoidTC:=cumHC; 

oidei TC: =cumRO; 

shoi tTC: =cuInBO; 

Sc^lvTR: =cumGR; 
gotoXY( 1 , 13) ; 

end; (sdr) 

procedure PrintHeadei (pi bBrlcPt , seedindex; integer; 

sa 1 vRat e , numY rsOH , i at i oPLTSTDMU , meanDemand , v ar Demand : rea 1 
var output fi le: text ; 

outputType,distrType, ERRType,anal IndType.-char; 
outFi leName : string; runDescript :descriptType; 

nmbrSteps, nmbiTiends: integer; 

stepMult , tiendCoeff,trendPower:changeRealAri-y; 

St art Step, stai Trnd, endTrnd: change I ntAri'y) ; 



vai i: integer; 

e 1 rUsed , di st rUsed , ana lUsed : st r i ng ( 7 ) ; 
inf ile: text; 

Year , Mont h , Day , Dayo f weelc ; word; 

C028 : stiing(l); 

A023B,B010,B01 1A,B020,B023C,B023D,B055,B057,B058,B061 ,B073,C008C,D025E, 
MSLQD,SCR,TD,TSDRS, V015R,V022,V101A,V102,V1034 ,V295: real; 

PD82stiI: string(24]; 

PD82sti2, PD82str3, PD82str4, PD82str5, PD82strb, PD82str7, 

PD82str8: st ri ng 1255 ] ; 



begin 

distrUsed:=‘ Nonnal'; 

if dist 1 -Type = '2' then di st rUsed: = * Poisson * ; 
errUsed;=' UICP *; 
case ERRType of 

*0*: errUsed:=' None'; 

*2': ei rUsed: =' Net Ben'; 

'3': errUsed:=' Mod NB' ; 

'4': errUsed:=' NPV NB' ; 
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'5': eriUsed:=‘ Tiad': 
'b': eirUsed;=* Fix Yr'; 
end; {case} 
ana 1 Used; = ' [;e fault': 



case anallndTyp^ 

'1': analUsed:='UseiSpc' ; 
end; (case) 

if outputType = '2' then begin 

wi 1 te 1 n I output f 1 le , ' *** ' , out Fi leName , ); 

GetUate (Yeai , Month , flay , Dayofweek) ; 

writeln (output f i le , ' Date: ‘ , Month, Day ,'-',Year); 
end; 



wi iteln (output file) ; 

writeln (output f i le, ' Model; UICP - WILSON EOO ')/ 
writeln (output file) ; 

wi iteln (output f 1 le, ' Description: ' , runDescr ipt ) ; 

wi Iteln (output file) ; 

wi i teln (output f i le , ' Initial simulation settings '); 
writeln (output file) ; 

wi i teln (output f i le, ' Numbei of quarters to simulate: 



, numberOfOtrs: 5 ); 



wi Iteln (output file, ' 



Numbei of replications of simulation to run: ', numbei Of Reps : 5 ) ; 

■ , seedtype) ; 



wi 1 teln (output f i le, ‘ Random numbei generatoi seed type: 

if seedType = '1* then 

writeln (output fi le , ' Random number seed start index: 
writeln(output f 1 le, ' Economic Retention Model: 
if ERRType = 'b' then 

writeln (output f i le, ' Number yeais economic retention used: 
wi i teln (output f 1 le. ' Initial Inventoi-y Type: 

if analIndType = then 

writeln (output f i le, ' Numbei years initial inventoi-y: 
wi iteln (output f 1 le, ' Type of demand distribution: 
wi iteln (output f 1 le, ' Mean Demand: 
wi 1 te In (output f i le , ' Vai Demand: 
wi iteln (output f i le, ' Numbei of steps: 
if nmbrSteps »0 then begin 

for i:=l to nmbrSteps do begin 

writeln (output f i le, ' Step: ',i:2,‘ Step Otl : ' , startStep ( i ] : 5 , ' Mult: ' , st epMu 1 t [ i ) : b : 3 ) ; 

end; 



' , seedlndex: b) ; 

' , errUsed) ; 

' , numYrsERR : b : 2) ; 
', analUsed); 

' , numYl sOH : b : 2 ) ; 
', distrUsed); 

' ,meanDemand; b: 2) ; 

' ,var Demand: b : 2) ; 

' , nmbrSteps: 5 ) ; 



end; (if) 

wi 1 teln (output f i le , ' Numbei of trends: ' , nmbrTrends : 5 ) ; 

if nmbrTrends >0 then begin 

for i:=l to nmbrTrends do begin 

writeln(outputfile, • Trend: ', i :2 , * Start Otr: * , starTrnd ( i ] : 4 , ' StopOti: ' , endTi nd( i ] ; 4 , 

• Coeff: ' , t rendCoef f ( i ] : b : 3 , ' Power: ’ , trendPower { 1 ] : b : 3 ) ; 

end; 



end; (if) 

wi i teln (output file); 
if outputType = '1* then begin 
HitToCont; 
clrsci ; 



end; 
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writeln (outpu*" f I If-. * .metei jottings 

oissign ( inf 1 le*, •p«iy2in. f 1 1 ' ) ; 
leset (infile); 

le^dl inf ilf-,PD82sti 1 , P082sti2, PD82sti3, PD82str4. PD82sti5, PD«2sfib. 
PD82stl-7, PD82stiH); 



close ( inf 1 le) ; 

C028 : =copy ( PE)8^st i 1 , 5 , 1 ) ; 

SC iTemp: =copy f P[)82st i2.4t»,15); 
SCI Temp: =copy(P£)82sti , 15) ; 
St iTemp: =copy ( P[)82st 1 2 , 121,15); 
St rTemp: =copy ( PD82st 1 2 , 181,15); 
stiTemp:=copy(P[i82sti2,21 1,15); 
strTemp:=copy (PE)82sti2,22b, 15) ; 
St iTemp: =copy ( PD82st r3 , 1 , 1 5) ; 

St iTemp: =copy ( PE)82st r'3 , 3 1 , 15) ; 
St rTemp: =copy ( PD82st 1 3 , 7o , 15) ; 
stiTemp:=copy (PD82sti 3,121,15); 
St rTemp: =copy ( PD82st r5,31,15); 
strTemp:=copy(PE)82str5, 181,15); 
St rTemp: =copy ( PD82st r5 ,211,15); 
st rTemp: =copy(PD82str5, 22b, 15) ; 
St rTemp: = copy ( PD82st r5 , 24 1 , 15 ) ; 
St rTemp: =copy ( PD82st i b , 1 b , 1 5) ; 
St rTemp: =copy ( PD82st i b , 1 Ob , 1 5 ) ; 
St rTemp: =copy ( PD82st rb , 1 2 1 , 1 5 ) ; 
St rTemp: ®copy ( PD82stro , 13b, 15) ; 
st rTemp: =copy (PD82st rb , Ibb , 15) ; 



BOl lA:=StringToRe<Hi (St rTemp) ; 
B020:=St ringToReal (Gt rTemp) ; 
BO 2 3 E) : = St r 1 ngToRe.i 1 ( St i Temp ) ; 
B055 : =Gt i ingToReal (Gt rTemp) ; 
B057 :=StringToReal ( St i Temp) ; 
B058 : =StringToReal (St rTemp) ; 
BObl :=Str ingToReal (StiTemp) ; 
B073 :=Str ingToReal (StiTemp) ; 
CO 08C:=Str ingToReal (St rTemp) ; 
D025E:=Str IngToReal (St rTemp) ; 
MSLOEl;=Str ingToReal (St rTemp) ; 
SCR : =St 1 i ngToRea 1 ( St rTemp ) ; 
TD: =Gt r i ngToRea 1 ( St rTemp) ; 
TSDRS:=Str ingToReal (StiTemp) ; 
VO 15R:=Str ingToReal (St rTemp) ; 
V022 : =St 1 1 ngToRea 1 { St rTemp) ; 
VI 01A:=Str IngToReal (St rTemp) ; 
V102 : =St ringToReal (StiTemp) ; 
V1034 : =St ri ngToRea 1 (StiTemp) ; 
V2R5:=St ringToReal (StiTemp) ; 



wilt el n (output file); 



wr 1 1 e 1 n 


(output file, ' 


Prob Break : 


• ,PrbBrkPt:8, * 


Min Risk 


• ,V022:8:2) ; 


writeln 


(output file, ' 


Shelf Life : 


• ,C028, • 


Max Risk : 


• ,V102:8;2) ; 


writeln 


(output file, ' 


Reqn Size : 


*,B073:8:0, * 


Old Cost ; ' 


,V015R:8:2) ; 


wi- 1 1 e 1 n 


(output file, ' 


Unit Price : 


*,B055;8:2, 


MSLOD : 


• , MSLOD; 8:2) ; 


wiiteln 


(output file, * 


Salv Rate ; 


* ,salvRate:8;2, 


' Proc Meth : ' ,D025E:8:0) ; 


wi iteln 


(output file, • 


Procur LT : 


*,B011A:8:2, * 


Shortage 


■ ,V1034 :8:2) ; 


writeln 


( output file, ' 


Essential : 


*,C008C:8:2, * 


R/0 Low : 


* ,B020:8:2) ; 


writeln 


(output file, • 


Mfg Set-Up : 


*,B058:8:2, 


R/0 Con St r: 


• ,V2<^5;8:2) ; 


wiiteln 


(output file, ' 


Obsol Rate : 


*,B057:8;2, 


Stoi Rate : 


' , SCR : 8 : 2 ) ; 


writeln 


(output file, ' 


Disc Rate : 


*,B061:8:2, 


Time Pref : 


* ,V101A:8:2) ; 


writeln 


(output file, • 


Time SDRS 


*,TSDRS:8:2, ' 


Today DT : 


* ,TD: 8:0) ; 


writeln 

writeln 


(output file, ■ 


Init Yrs OH: 


' , numYrsOH: 8 : 2 , 


' PLT STD/MU: * , rat ioPLTSTDMU: 8 : 0) ; 


(output file,* * 











if outputType = 'I* then begin 
Hi tToCont ; 
clrscr; 



end; 



end; (print header) 



procedure Di splayPDOutput (var obsei-v, frcst, mad, EOOAri-y- ROLevelAiiy, 
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SSADDBO, SSADD, GSSMA:quartei An ay; 

var stepIndAri-y, trndIndAriy ,mkCodeArry :qt i IntArray ; 
nujTibeiOfOt i s , i n 1 1 1 nv , repNom; i ntegex'; 
outputTypeichar) ; 



vai t : integei ; 
begin 

wiiteln (outputfile); 

wiiteln (output f i le Repl icat ion Numbei ',repNuin); 

wii te In (output file) ; 

wri tel n( output fi le, * PD82/8b Data' ) ; 

writeln( outputfile, ' ' ) ; 

for t:=l to numberOfOtrs do begin 

if (t=l) or ({(t-1) mod 20) = 0)then begin 

if (outputType=* 1 * ) and (t»l) then HitToCont; 
wi iteln (output file) ; 

writeln (outputf l le, *0TR OBS FRCST MAD 0 R/0 ADDBO ADD GMA MK GT TR ' ) ; 

end; 

writeln (output fi le , t : 3 ,obsei-v ( t ] ; b : 0 , f rest [ t ] ; 8 : 2 , mad [ t ) : 8 ;2, 

EOOAri-y ( t ] ; b : 0 , ROLevelAl iy (t ) : b; 0 , 

GGADDBOlt] :8:2,SGADD[t] : 8 : 2 , GSSMA ( t ] ; b : 2 , mkCodeAr ly [ t ] ;3, 
stepIndAriy [ t ] : 3 , trndIndAriy ( t ) : 3) ; 

end; 

writeln (outputfile); 
if outputType= '1' then HitToCont; 
end; 

procedure DisplayRepStats (var ADDBO, ADD, GMA, Invest, totCost ; real ; 

vai orderCount , disposals, disposalCount , endOH , endOS : integei ; 
outputType ; char ); 

begin 

if numbeiRep ^ 1 then begin 
wi'iteln (output fi le) ; 

writeln (output f i le, ' * * * * ‘ * * * * * * * ‘ * ‘ ‘ ‘ * * * * * * * ‘ * ‘ * ‘ ‘ * ‘ * ‘ * * ********** * * * **'); 

writeln (output fi le, • Repl icat ion Final Statistics'); 

writeln (output f i le, • Num ADDBO ADD GMA Ords Invest EndOH EndOS DspCt TotDsp TotCost'); 
end; (if) 

wi iteln (output fi le,numberRep: 4 , ADDBO:7: 2 , ADD: b : 2 , SMA : b : 2 , oiderCount : b , Invest : 8 : 2, 
endOH : b , endOS; b ,di sposal Count : b , di sPosals : 7 , tot cost : 1 4 : 2) ; 
if numberRep = numberOfReps then 

writeln (output fii©,******************** ******** ***************** ****«********<^ 

if outputType ='l' then begin 
de 1 ay ( 1 5 0 0 ) ; 
cl rscr ; 
end; 
end; 



procedure DoStats(var currMean, currVai , sampleReal : real ; 
var sampleint ; i nteger; 



138 



v^i conf Int : I eal ; 
numbei Rep: intf^gei ) ; 

vai samr>Ie,oldMean,oldVai : real; 

begin 

if sampleReal = then sample : =samplel nt 

else sample; =sampleReal ; 
oldMean : =cui iMean; 
oMVai : =cui 1 Vai ; 

if numbeiRep‘=l then cui i Mean : =sampl e 

else cuirMean:* l((numbeiRep - 1) * olrlMean) ♦sample : /numbei Rep; 
if number Rep* =2 then cuiiVai:= 0.0 

else currVai : = ( ( (number Rep- 2) 'oldVar ) ♦ ( ( numbei Rep- 1 ) *30R (oldMean) i ~ 
(number Rep *S0R (cui iMean) ) +SQR (sample) ) / (numbeiRep- 1 ) ; 
if numbeiRep > 0 then conf Int ;= 1 . ‘ SQRT ( cur rVar /numbeiRep) 

else confint :=0.0; 
end; (dost at s} 



pioceduie DisplaySimStats (vai simADDBO, simADC), simSMA, simlnvest , simTotCost , 

s 1 mO rde rCoun t , s i mD i spo sals,simDisposalCount, 
simEndOH, simEndOS, Cl ADDBO, ciADD, ciSMA. Cl Invest , 
ciTotCost , ciOi del Count , ciDi sposal s, 
ci disposal Count ,ciEndOH,ciEndOS:ieal ; 
ou t pu t Type : char; 

houi 1 ,minutel ,secondl ,hdSecl ,houi2,minute2, 
second2 , hdSec2 : word) ; 

vai upADDBO,upADD,upSMA,upInvest , upOrderCount ,upDisposals,up[)i sposal Count , 
lwADI)BO, IwADB, IwGMA, Iwinvest , IwOrderCount , IwDisposal s, IwDi sposalCount , 

1 wEndOH , 1 wEndOS , upEndOH , upEndOS : i ea 1 ; 



begin 

( upADDBO:=simADDBO+ciADDBO; 1 wADDBO: =simADDBO-c lADDBO; 
upADD: =simADD+ci ADD; IwADD: =simADD-ciADD; 
upSMA:=simSMA+ciSMA; IwSMA : =simSMA-ciSMA; 
upEndOH : =simEndOH+ci EndOH; IwEndOH :=simEndOH-ciEndOH; 

upEndOS: =simEndOS+ciEndOS; IwEndOS : =simEndOS-ci EndOS; 
uplnvest : =sim[nvest +ci Invest ; Iwinvest : =simlnvest -ci Invest ; 
upOrderCount : =simOrderCount +ciOrderCount ; 

IwOrderCount ; =s imOi derCount -c iOrdei Count ; 
upDisposal s: =simDi sposal s+cidisposa Is; 

IwDisposals: =simDisposals-ciDisposals; 
upDisposal count : =simDisposalCount+ciDi sposalCount ; 

IwDi sposalCount : =s imDi sposa ICount -ciDi sposalCount ; 

If IwADDBO * 0.0 then IwADDBO: =0 . 0; 

if IwADD • 0.0 then lwADD:=0.0; 

if IwSMA . 0.0 then lwSMA;=0.0; 

if Iwinvest <' 0.0 then 1 winvest : =0 . 0 ; 

if IwOrderCount < 0.0 then IwOrderCount : =0 . 0; 
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if IwDisposals - 41. then lwDisposals:=0. 0; 
if IwDisposalCount 0.0 then IwDi sposa iCount : =(j . o ; 
if IwEndOH ' 0.0 then IwEndOH : =0 . 0 ; 

If IwEndOP ' 0.0 then IwEndOS: =0 . 0 ; ) 

wi 1 te) n ( output file) ; 

wi iteln (output fiie,**‘**‘‘‘*‘*‘ 

writeln(output f 1 le, *Simulat ion Final Statistics'); 

wi Iteln (output f 1 le, ' Final Means and Confidence Inteival (95%)'); 



wi Iteln (output file, ' 
writeln(output f 1 le, ' ADDBO 
write In (output f 1 le , ■ ADD 
writeln(output f i le, ' SMA 
wilt eln ( output f 1 1 e , ' ORDERCOUNT 
wri tel n ( output f 1 1 1 - , ' INVEST 
wr Iteln (output file, ' ENDING OH 
wr 1 te In ( output f 1 le , ' ENDING OS 
wr 1 teln (output f 1 le, ■ DISPOSAL COUNT 
wri teln (output f 1 le, ' DISPOSALS 
wri teln (output f i le, ' TOTAL COST 
wi iteln (output file, ■*•»*•****•**•*** 



Mean Cl ' ) ; 

■ ,SimADDBO: 12:2,ciADD: 12:2) ; 

■ ,simADD: 12: 2, Cl ADD: 12:2) ; 

■ ,simSMA: 12:2,ciSMA:12:2) ; 

' , simOrdei Count : 12: 2,ciOideiCount : 12 :2) ; 

' , sim Invest : 12 : 2 , ci Invest : 12 : 2) ; 

■ , s 1 tnEndOH ; 1 2 ; 2 , c i EndOH ; 1 2 : 2 ) ; 

■ ,simEndOS: 12; 2,ciEndOS: 12:2) ; 

■ , simDisposal Count : 12 : 2 , ci Di sposalCount ; 12:2) ; 
■ , simDisposal s: 12;2,ciDisposals: 12:2) ; 

* , simTotCost : 12 :2 , ciTotCost : 12 : 2) ; 



wiiteln (output file) ; 

wr Iteln (output f 1 le ,' Sim Start Time ' ,houi 1 , ' : ' ,minutel , ' : ' , secondl , ' : ' ,hdSecl ) ; 
wr Iteln (output file, 'Sim End Time * , houi 2, ' : ' ,minute2, ' : ' , second2, * : ' , hdSec2) ; 

if outputType =*1' then HitToCont; 
end; (displaysimstat ) 



procedure Di spl ayOt rAi i-ys ( var totCostAri-y , holdTCAriY , ordeiTCAi ly , ERRArry , 

shoi tTCAri-y . salvTRAi i-y:qu^i'terAi ray; 
numberOf Ot 1 s; integer) ; 

VAR qt r: integer; 
begin 

wri teln (output fiie,'*‘*****‘‘*****‘ * * *4«*«***»**»*«*****4****«*»**i) 

wi iteln (output f i le) ; 

wi 1 te 1 n ( output f 1 le , ' Quarter cummulative costs and years ERR for graphing'); 
wri teln (output file); 

writeln (output fi le, ' QTR TOTAL HOLD ORDER SHORT SALVAGE ERR*); 

foi qti := 1 to numberOfOtrs do 

wr Iteln (output f i le,qt r : 4 , tot Cost Any [qt r j : 12 : 2 , holdTCAriy [qt i ) : 12: 2 , 
orderTCAi ly (qt i ) : 1 2 : 2 , shoi tTCAi i-y (qt r ] : 12: 2, 
salvTRAri-y [qtr] : 12:2, ERRAi i-y [qtr] :10:2) ; 

writeln (output f i le) ; 

writeln (output f i le, ' Quaitei SMA and Invest for steady state graphing'); 
writeln (output file) ; 

writeln (output fi le, ' QTR SMA Invest'); 

for qtr := 1 to numberOf Qtrs do 

wi Iteln (output f i le ,qtr: 4 ,qt i SMA [qt r ) : 12 : 2, invest Qtr [qtr ]: 12:2) ; 
end; (di splayqt i array ) 



beg in (main) 

text col or ( 14) ; 
stop: =FALSE; 
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unCounr : =0 



cui : = ( 

noRe.=>l ; = -<^Q‘i9.0; 
noint : =0; 

I i^ndSeedAi t y ( seedAi l y ) ; 

Front screen; 

Runt ype <di st rType , output Type , wkDat aType , qt rDat aType , PDDat aType , 

repStatType, ERRType ,anal I ndType , numbei Of Qt rs, numberOfWks, numbeiOf Rep;;, 
seedindex , meanDemand, varDemand, numYi sOH , numYrsERR , input file, output file, 
f I cst ,mad, seeds, out Fi leName, runEiesci ipt ) ; 

1 epeat 

rewrite (output f i le) ; 
simCount ;=simCount+l ; 

GetTime ( houi 1 ,minutel , secondl , hdSecl ) ; 
foi numbeiRep := 1 to numberOf Reps do begin 
if seedType = ‘1* then begin 
if numbeiRep = 1 then begin 

foi s:= 1 to seedindex do cui i Seed: =GetNextSeed (cui rSeed) ; 

SetSeed (currSeed) ; 
end {if) 
e 1 se beg i n 

currSeed: =GetNextSeed{curi Seed) ; 

SetSeed (cui r Seed) ; 
end; (else) 
end (if) 

else Set Seed I seeds (numbei Rep] ) ; 

In 1 1 ial i zeAri ays (obsei-v , EOOAri'y , ROLevelAri'y , SSADDBO, SSADD, SSSMA , ERRAri-y , 
s t epi ndAi i*y , t r nd I ndA r i*y , m kCodeA i I'y , n ujnbe rO f Qt r s , 
numberO f Wk s , numberRep , meanDemand , 
wklyObsei“v, meanDtndAri-y , varDmdAiry , totCostAri-y , 
holdTCArry ,orderTCAri-y , shortTCAri-y , salvTRAri-y , 
investQt r,qtrSMA) ; 

LoadObsei-v (obsei-v, frcst ,tnad,wklyObsei~v,meanDntdAri-y ,vaiDmdAri-y, 

observType ,dist rType , numberOfOt rs , numberOfWks , numberRep, 
simCount , tiendOn, stepOn,nmbrSteps, nmbi Trends, 
meanDemand, varDemand, input file, seeds, startstep, 
staitrnd, endtrnd, stepmult , trendcoeff, trendpower); 
if numberRep = 1 then begin 

if simCount=l then InitPD82File (prbBrkPt , numYrsERR , sal vRate, 

numYrsOH, rat ioPLTSTDMU, storRate, 
obsolRate,di scRate, infRate ,mi lEssent ) ; 
PD82Edit (pibBrkPt ,unitPrice, PLT, orderCost ,holdFrac, 

shortCost , salvRate, numYrsOH, rat ioPLTSTDMU, numYrsERR, 
stoi Rate, obsol Rate, discRate, infRate , mi lEssent ) ; 

end; 

if numbeiRep=l then PrintHeader (prbBrkPt , seedindex, salvRate, numYrsOH, 

rat ioPLTSTDMU, meanDemand, vai Demand, 
output f 1 le ,outputType ,di st rType, 

ERRType, anal I ndType , out Fi leName , runDescript , 
nmbrSteps, nmbi Trends, stepMult , 
trendCoef f , trendPowei , start Step, 
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St a I Trnd , endTrnd ) 



Foiec.ist i obsr^rv , f rest , mad, st epi ndArry , trndlndAi ly . 

mkCodeAi l y , nujnberOfOti s,numDerRep,unitPi ice) • 

LoadLevels (frest, mad, observ, EOOArry, ROLeve LA 117 , SSADOBO, SSADD, SSSMA , 
mkCodeAri'y, numberOfQtrs , prbBrkPt, meanDemand, PDDataType) ; 

if PDDataType= • 1 ' then Di splay PDOutput (observ, frest, mad, EOOArry, 

ROLevelArry, SSADDBO, SGADD, 

SSSMA, step! ndArry, trndl ndArry, 
mkCodeAi ry , numbei OfOt rs , init Inv, 
number Rep, out put Type) ; 

SDR (OSHeap, BOHeap, wk lyObsei-v , EOOAri'y , ROLeve lAri y , observ , frest , 

ERRAiiY,numbeiOfOti s, init I nv, 01 dei Count ,disPosals,disposalCount , 
meanDemand, rat ioPLTSTDMU, unit Price, orderCost , holdFrac, shortCost , 

sa IvRat e, PLT, obsolRat e ,di scRate , numYrsERR , numYrsOH ,mi 1 Essent , TWUS, endOH, endOS , ADDBO , 
ADD,SMA, Invest ,wkDataType,qtrDataType,outputType, ERRType,anal I ndType , totCost , 
holdTC, orderTC, shortTC, salvTR , totCost Ari-y , holdTCAri*y , 
orderTCAri-y ,shortTCAri-y , salvTRAri-y , investOtr,qti SMA) ; 
if lepStatType = '1* then DisplayRepStats (ADDBO, ADD, SMA, Invest , totCost , 

oiderCount , disposals, 
di sposa ICount , endOH , 
endOS,outputType) ; 

if numbeiRep = 1 then begin 

simADDBO: =0. 0; simADD; =0 . 0 ; simSMA:=0.0; siminvest : =0. 0; 
simOrderCount : =0. 0; simDisposal s: =0. 0; simDisposalCount :=0.0; 
simEndOH: =0. 0; simEndOS; =0 . 0 ; simTotCost : =0 . 0 ; simHoldTC:=0.0; 
simOrdeiTC; =0 . 0; simShortTC: =0 . 0; simSal vTR : =0 . 0; 
end; (if) 

DoStats {SimADDBO, varADDBO, ADDBO, noint ,ciADDBO, numbei Rep) ; 

DoStats (simADD,varADD, ADD, noint ,ciADD, numbeiRep) ; 

DoStats (simSMA ,varSMA, SMA , noint ,ciSMA, numbeiRep) ; 

DoStats (siminvest ,var Invest , Invest , noint ,ci Invest , numbei Rep) ; 

DoStats (SimOrderCount , varOrderCount , noRea 1 ,OrderCount , ciOrderCount , 
numbei Rep) ; 

DoStat s ( simDi sposa 1 s , varDi sposa 1 s , noRea 1 , Disposals, ciDi sposa 1 s, number Rep) ; 

DoStats { SimEndOH, vai EndOH, noReal , endOH, ci EndOH, numbei Rep) ; 

DoStat s (simDisposalCount , vaiDi sposa ICount , noRea 1 , disposal Count , 
ciDi sposa ICount , numbeiRep) ; 

Dost at s ( s 1 mEndOS , var EndOS , noRea 1 , endOS , c 1 EndOS , numbei Rep) ; 

DoStats ( simTotCost , varTotCost , totCost , nol nt , ciTotCost , numbeiRep) ; 
DoStats(simHoldTC,varHoldTC, holdTC, noint ,ciHoldTC, numberRep) ; 

DoStat s (simOrderTC, varOrderTC, ordeiTC, noint , ciOrderTC, numbeiRep) ; 

DoStat s (simShortTC, varShortTC, shortTC, noint , ciShortTC, numbeiRep) ; 

DoStats (simSalvTR , varSalvTR , salvTR , noint , ciSal vTR , numbeiRep) ; 
end; (for) 

for i;= 1 to numberOfQtrs do begin 
qt rSMA 1 i } : =qt rSMA ( i ) /numbei O f Reps; 
investOtr [ i ) : =investQtr ( i ] /numberOf Reps; 
end; (for) 

GetTime (houi2 ,minute2 , second2 , hdSec2) ; 

Di splaySimStats ( simADDBO, si mADD, si mSMA , siminvest , simTotCost , simOrderCount , 
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s imDi sposii 1 s , s imDi sposal Count , s imEndOH , simEndOS , ciADDBC 
ciADD, Cl CMA , Cl Invest , ci Tot Cost , c iOrdei Count ,ciDisposc»l s , 
Cl Di sposa 1 Count , c i EndOH , c i EndOS , out put Type , houi 1 , 
minute! , second] , hdSecl , houi 2 ,minute2 , s<=‘Cond2 , hdSec2 > ; 
foi numOti := 1 to numbeiOfQtis do begin 

totCostAiiy[ numQt r] : =t ot Cost Ai i y [ numQt r) /numbei Of Reps; 
holdTCAi ly (numOt i ) ; =ho IdTCAi ly (numOt i ) /numbei Of Reps; 
oi del TCAi i y ( numQt i ) : *oi deiTCAi ly ( numQt i ) /numberOf Reps; 
shoi tTCAi ly [numQt i ] := short TCAi ly [numQt r) / numberOf Reps; 
sal vTRAi ly [numQt r) : =salvTRAny [numQt i ) /numberOf Reps; 

ERRAriy [numQt i ) : = ERRAi iy [numQtr] /numbei OfReps; 
end; { foi ) 

Di spl ayQt i Aiiys (totCostAriy, holdTCAriy , orderTCAi ly , ERRAriy , 
shoi tTCArry , sal vTRAi ly , numbei OfQt rs) ; 
close (output f i 1 e) ; 

RunAgain (output f i le, i unDesci ipt ,outputType, ERRType, stop, 
numYi sERR , out Fi 1 eName) ; 

unt 1 1 stop; 
textcoloi ( 15) ; 

end. {main program UlCP-Simulator } 
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unit TOOLBOX 



•This Unit piovides Ci toolbox of useful functions functions and * 

‘pioceduies foi data input. * 

) 



Interface 
Uses CRT; 

type pd82f ield=sti ing[ 15] ; 

vai sti'Temp:pd82f leld; 

function Get_An swer; boo lean; 
procedure HitToCont; 

function Get_Integei ( low, high: integer ): integei; 
function Get_Real ( low, high: real ) :real; 
function NumToStr i ng (var value: real ) :pd82field; 
function StringToReal (var S: pd82 f ield) : i eal ; 
function Get_LongInt ( low, high : longint ): longint ; 

Implementat ion 

function Get_Answer; {Retuins a Boolean result for a yes/no quei-y) 

vai Chai_In:Char; 

Correct : Boolean; 

begin 

Correct := False; 
repeat 

Chai _I n : =ReadKey ; 
write (Chai_In); 
case Chaikin of 
' y • , • y • : beg i n 

wi iteln ( *es ' ) ; 

Get_Answer: =True; 

Correct : =True 

end; 

• N * , * n ’ : beg i n 

wi i t e 1 n { ’ o * ) ; 

Get_Answer: =False; 

Correct :=True 

end; 

else begin 
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writeln; 

Sound (220) , 
delay ( JOO) ; 

NoSound; 

writeln ('** Un-recognizable answer **’); 
write In (’Entei Y oi N,’); 
writeln ('Re-enter your answer: ') 

end 

end; (case) 
until Correct; 
end; {Get_Answer) 

procedure HitToCont; 

var dummy : char ; 

beg 1 n 
writeln; 

write (■ Hit any key to continue 

dummy : =readkey; 

end; 



(Gets an integer input between low and high, prompts until one is received) 
function Get_Integer I low, high: integer) ; integer ; 

var numberstring: string 110); 

error, numberValue: integer; 



begin 

repeat 

readin (numberStrrng) ; 

val (number St ring, numberValue, error); 
if error ^ » 0 then begin 
writeln; 

Sound (220) ; 
delay (300); 

NoSound; 

write (■*** Invalid number, enter an integer: ’) 
end else if (numberValue* low) or (numberValue >high) then begin 
writeln; 

Sound (220) ; 
delay ( JOO) ; 

NoSound; 

writeln (••** Invalid Range - value must be a positive integer'); 
write ('between ',low, ‘ and ',high,' Enter number: '); 
error: =1 ; 
end; 

until error=0; 

Get_I nteger : =numberVal ue; 
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end; (function) 



{Gets cin longint input between low and high, piotnpts until one is leceived) 
function Get_LongInt ( low, high: longint ): longint ; 

vai numberGti ing; string(lO); 
eiroi: integer; 
nuxnberVal ue : longint; 

begin 

repeat 

leadln (numberSti ing) ; 

val (numberstring, numberValue, error); 
if error < » 0 then begin 
writeln; 

Sound (220) ; 
delay ( 300) ; 

NoSound; 

write (•‘‘‘ Invalid number, enter an integer; ') 
end else if ( numberVal ue< low) or (numberValue >high) then begin 
writeln; 

Sound (220) ; 
delay (300); 

NoSound; 

writeln i'*** Invalid Range - value must be a positive integer'); 
write ('between *,low,' and *,high,' Enter number: '); 

eri or : =1 ; 
end; 

until erroi=0; 

Get_LongInt : =numberValue; 
end; {function} 



(Gets a real value between low and high, prompts until one is received} 
function Get_Real { low, high: real ) :real; 

vai Number _St ring: string; 

Error: integer; 

Number_Va 1 ue : i ea 1 ; 

begin 

repeat 

read In (Number_Str ing) ; 

val (Number_String, Number_Value, Error) ; 
if Error <> 0 then begin 
Sound (220) ; 
delay (300); 

NoSound; 

writeln ('**You must enter a valid real number** '); 
end else if (Number_Value< low) or ( Number _Va 1 ue »high) then begin 
writeln; 
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5oun*i (^2(< ■ ;■ 
delay (JOd 
NoSound; 

wiiteln (*‘‘‘ Invalid Range value must be a leai 
wiite ('between low: 0:1,' and high: 0:1,' Enter 
error; = 1 ; 
end; 

until Eiror=0; 

Get^Rea 1 : =Number_Va 1 ue ; 
end; (Get^Real) 

function NumToString (var value: real ); pd82f leld; 

const digits = lb; 

decimals = 8; 

vai 1 : integer ; 

S: string[lbj; 
begin 

str (value:digits:decimals,S) ; 
for i;=l to 16 do 
if S( 1 1 = ' ' then S ( i ) : = ' 0 ' 

else if S(i) = then delete (S,i,l); 

NumToStr ing: = S 
end; 

function StiingToReal (var S:pd82f ield) : l eal ; 

var Rl, R2: real; 

SI : string (7] ; 

S2: string [8] ; 

errorl, error2: integer; 



begin 

SI :=copy (S, 1,7); 

S2 : =copy (S, 8,8); 
val (SI , Rl , errorl ) ; 
val (S2,R2,erroi2) ; 

Sti ingToReal :=RU(R2/100000000) ; 
end; 



End. {Unit Toolbox} 



value' ) 
number: 
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unit uni rand 



1 nti?i fcice 

type seedAx lyType = ax ray (1..1000) of longxnt; 
vax seeds, seedAx xy: seedAx xyType; 
pioceduxe SetSeed ( seed: longint ) ; 
function GetSeed: longxnt; 

function GetNextSeed ( lastSeed : longi nt ) : 1 ongi nt ; 
function RandomUni foxin: real ; 

procedure randseedArry { var seedArry : seedArx-yType) ; 

function GetPoi sson (vax meanDemand: xeal ): integer; 

function GetNoimal : leal ; 

funct xon GetGeometi xc (p: real ) ; integer; 

function GetNegBxn (p: real; s; integer) : integer; 

function GetUni fonnint (high: integex') : integer; 

function ZInv (p: real ): real ; 

function ZPdf (Z:real):real; 

function utNoxmal (Z:xeal):real; 

implementation 
var a:longint; 

procedure SetSeed (seed: 1 ongi nt ) ; 

begin 

a:=seed 

end; (procedure) 
function GetSeed: longi nt ; 
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begin 

Cet L-ieed : --h 
end; ipioceduie) 



funct ion RandomUni toitn: l ; 

const B2E15: longint=J27b8; 

B2Elt): longint»bS53b; 

Modlus: Iongint=2l474BJb47; 

Mu 1 1 1 ; 1 ong int =24 112; 

Mult2: longint =2b 1 43 ; 

VAi H i 1 5 , H i 3 1 , Low 1 5 , Lowprd , Ov f 1 ow , Z i : 1 ong i nt ; 

begin 
Zi :=a; 

Hll5;=Zi div B2Elb; 

Lowprd;=(Zi - Hil5 * B2Elb) * Multi; 

Lowl5 : =Lowpid div B2Elb; 

Hi31:=Hll5 ‘ Multi + LowlS; 

Ovflow:=Hi31 div B2E15; 

Zi := ( ( (Lowpid - LowlS * B2Elb) - Modlus) + 

(Hi31 - Ovflow • B2E15) * B2Elb) > Ovflow; 
if Zi • 0 then Zi:= Zi + Modlus; 

Hil5:= Zi div B2Elb; 

Lowprd:= (Zi - HilS ‘ B2Elb) * Mult2; 

Low 1 5 : = Lowprd div B2E16; 

Hi31:= Hil5 * Mult2 + LowlS; 

Ovflow:= Hi31 diV B2E15; 

Zi: = M (Lowprd - LowlS * B2Elb) - Modlus) + 

(Hi31 - Ovflow * B2E15) ‘ B2Elb) Ovflow; 
if Zi ' 0 then Zi:= Zi + Modlus; 

: =Z 1 ; 

R.^ndomUni fonn: = (2 * (Zi div 25b) + 1) / lb77721b.O; 
end; 

function GetNextSeed ( lastSeed: longint) : longint; 

const M:extended=2l47483b47 . 0; 
a : extended=7 15 . 0; 
b;extended=1058 . 0; 
c:extended=1385 . 0; 

vai Z ‘.extended; 

begin 

Z : = lastSeed; 

if lastSeed=0 then begin 
Z: = 1<)73272Q12.0; 

GetNextSeed: =round (Z) ; 
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end else begin 



2:=(A*Z) /M; 




Z:- (Z-i ound (Z-0 . 5) ) 


•M; 


Z;=(B‘Z) / M; 




Z:=(Z-iound(Z-0.5) ) 


*M; 


Z:=(C‘Z) / M; 




Z;=(Z-iound(Z-0.5) ) 


‘M; 



Get Next Seed ;=iound(Z) ; 
end; 

end; {get next seed) 



function GetPoisson (vai meanDemand: real ): integer; 

vai alpha.beta, Ulneal; 
i ; integer; 

begin 

beta: =1 . 0; 

1 : = -l; 

repeat 

1 : = 1 + 1 ; 

alpha;= exp ( -meanDemand) ; 

U1 ; =RandomUni foim; 
beta;=beta*Ul ; 
until beta<alpha; 

GetPoi sson;=l 
end; 

function GetNoimal : real ; 

vai Ul,U2,Vl,V2,W,Y;real; 

begin 

repeat 

U1 : =RandomUni form; 

U2: =RandomUni fonn; 

V1:=2*U1-1; V2;=2‘U2-i; 

W; =sqr (Vl ) +sqr (V2) ; 
unt i 1 W < = 1.0; 

Y:=sqi t ( (-2* ln(W) ) /W) ; 

GetNoi-mal :=V1*Y; 

end; 

function GetGeomet r ic (p: real) : integei ; 

var U:real; 

1 : integer; 

begin 

i;=0; 
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U: =Rv»ndomUni form; 
while not (U '= p) do begin 
1 : = 1 + 1 ; 

U: =RcHndomUni fonn; 
end; 

GetGeometric:=i ; 
end; 

f unct ion GetNegBin (p: leal ; s: integer) ; integer ; 

vou X, 1 ! integer ; 

begin 

X:=0; 

for i:=l to s do begin 

X ; =X+GetGeomet ric (p) ; 

end; 

GetNegBin: =X; 
end; 

funct ion GetUni fomilnt {high: integer) : integer; 
begin 

GetUni formlnt := round ( {high-1 ) * RandomUni form) + 1 ; 
end; 

function ZInv (p: real ); real ; 

var t:real; 

begin 

t ; =sqrt (-2* In (p) ) ; 

Zlnv:=t-( {2.515B17+0.802853*t+0.010328*sqr(t) )/ 

{l + 1.4327 88*t+0.l8<^2b‘^‘ sqi' (t)+0. 001308* exp ( 3 * In ( t ) ) ) ) ; 

end; 

function ZPdf ( Z: real ): real ; 
i>egin 

ZPdf :=0.3989*exp(- (sqr (Z) /2)) ; 
end; (zpdf) 

function utNormal (Z: real ): real ; 

type constantAriY= array (0..3) of real; 
var Psub.J,OsubJ: const ant Any; 

sumPsubJ, sumQsubvJ , RIX, ei fX ,X: real ; 
j ; integer; 



begin 

PsubJ(O) : =242. 9979552 Ji53 175; 
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PsubJU) :=21 .<^7Q2bl6182')4152; 

PsubJ(2] :=b. ^^b383488bni355r 
PsubJ (3] ;=-0. 035 b0984 3701 81 5385; 

OsubJ[0) :=215.0588758b9«ol2; 

OsubJ[ll :='^1 . Ib4905404514 901 ; 

OsubJ(21 :=15. 0827q7bJ0407787; 

C)subJ(3J :=1 . 0000000000000: 
sumPsubJ : =0 . 0; 
sumQsubJ : =0 . 0; 

X:=Z/sqrt (2) ; 

xf X = 0.0 then X;=0. 000001; 
if X ‘ 0.0 then x:=abs(X) ; 
fox- 0 to 3 do begin 

sumPsubJ: =sumPsubJ + PsubJ(j) * expj (2‘j ) * In (X) ) ; 
suxnOsubJ: =sujnC>subJ + QsubJ(j) * exp ( ( 2 * j ) * 1 n IX) ) ; 
end; ( f ox ) 

RIX: =sumPsubJ/sujnOsubJ; 
ex fX:=X‘RlX; 

if Z >= 0 then utNonnal:=l - ( ( 1 +eifX) /2 ) 
else utNormal : = ( 1+erfX) /2; 
end; 

end. {Unit Uni rand} 
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unit PDUnit 






uses dos. Cl t , toolbox; 



vai pibBikPt :integei; 

unit Pi ic<^, PLT, ordei Cost , holdFiac, shoi to :.st : i e..^! ; 
numYrsERR , s.h 1 vR^it e , nuniYi sOH, lat loPLTSTDMU ; i e.il ; 
stoiR.Hte, obsol Rat e ,<ii scRat e , in f Rat e , mi 1 Essen t : i eal ; 

pioceduie lnitPD82File (var pi bBi kPt ; integei ; 

vai numYisERR, salvRate. numYrsOH, i at loPLTSTDMU, stoi Rat 
obsolRate,discRate, infRatp,mi lEssent : real ) ; 



procedure PD02Edit(var prbBikPt : integer; 

var unit Price, PLT, orderCost , holdFrac, 
shortCost , salvRate, numYrsOH, 
rat loPLTSTDMU, numYrsERR, storRate,obsolRate, 
discRate, inf Rate, mil Essent : i eal ) ; 



procedure InitPDybFi le; 

Implement at ion 

procedure InitPD82File (var prbBrkPt : int egei ; 

var numYrsERR , salvRate, numYrsOH, rat ioPLTSTDMU, storRate 
obsolRate, discRate, inf Rate, mi lEssent : real ) ; 

var AAC,AL,B0b7A,B0b7G,C028,DRLI ,D031C,D125N,ERRI,F024,HODI ,MARLI , PVPI , RI I , RO, 
YR7POC,YOObA,YOObB,EOOIND, PVUI : char; 

D120, FILLER ; string [2); 

A02JB,BRLDC,B010,B0I lA,B012F,B01bA,B020,B023C,B023D,B023F,B023H,BG,B055, 
B055A,B057 ,B058,B058A,B0bl ,B070,B073 , BOb J , B280 ,C008C, DOPTC, DTC, D025E, 
FOOb,HOD,HOl4l ,H0l42,H0143,H0l44,H0U5,H0l4b,H0l47,H0148,H0l49,H014I0, 
H0l4ll,H01412,H0l4l3,H014l4,H0l4l5,H0141b,H0l4l7,H014l8,H0l4l9,H0l420, 

I LR , I MECY , M , MOOOAD , MSLOAD , MSLQD , NR F 1 DRT , OSO , PDO , PPV , ODH , RF I DRT , R I YA YABY , 

RSV , RT, SCR , SSOH , TD , TSDRS, VO 1 5R , VO 1 b , V022 , V039 , V04 1 R , V042R , V04 3R , V04 4 , 
V101A,V102,V1034,V108,V295,LILT,LILY,PCR3,01B,02B,RMNAST,SER,YDR,MNOOAD, 

APSR , ARCI , BOO , BRLCI , BRLDCU, BRLO , BRPLQ, BRQ , BO 1 4A , BO 1 9 , BO 1 9B, B02 1 , B02 1 A , 
ERR,MONDO,OOCI,POC,PPVBNDO,PZO,RCI,RLCI,RPLC1,ROC1,VPSR : real; 

PD82stil: string (24); 

PD82sti2, PD82str3, PD82str4, PD82str5, PD82stib, PD82str7, 

PD82str8: st ring (255 ) ; 

out f 1 le; text ; 
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b^gin 



{ ini t i.i 1 izoit ion values) 

AAC: = *N‘; AL: = 'N*; Bn67A: = 'N'; B0b7G: = 'N‘; C028; = ' 0 '; [)RLI: = 'N‘; D0J1C: = 
D12U:='0fa'; D125N:=' ERRI:='N‘; F024:=' *; H0D1;=' MARL1;=*Y'; 

PVPI:=*Y'; RII:=-N'; RO:=*N'; YR7pOC:= * •; Y00bA:='N‘; Y00bB:='N’; 
EOQINrD: = 'N’ ; PVUI: = ‘ FILLER: = ' 



A023B:= 1.0; 


{system requisition average) 


BRLDC:=5.0; 


{basic reorder level distribution code) 


B010;=0.0; 


{contiact prod lead time) 


BOl 1A:=8. 0; 
B012F:=0.0; 


{contract proc lead time) 


B01^A:=20.0; 


{non cied group proc variance) 


B020:=l . 0; 


{system reorder level low limit qty) 


B023D:=1.0; 


{gross sys demand end of lead time) 


B023C:=B011A*B023D; 


{gross sys demand during lead time) 



BO23F:=0.0; B023H:=0.0; BG:=0.0; 



B055:=100.00; 

B055A;=0.0; 


{unit price) 



B057:=0.12; obsolRate: =B057; {obsolescence rate) 



B058:=600.0; 
B058A:=0. 0/ 


{manufac set-up costs) 


B0bl:=1.0; 

B070:=0.0; 


{discount rate) 


B073:=1.0; 

B093:=0.0; B280:=0.0; 


{expected units pei requisition) 


C008C:=0.5; 

DOPTC:=0.0;DTC:=0.0; 


{average item essentiality) 


D025E:=0. 0/ 


{procurement method) 



F00Q:=0.0; H00:=0.0; H0l4l:=0.0; H0142:=0.0; H0143:=0.0; H0144:=0.0; 
H0145:=0.0; H014b;=0.0; H0147:=0.0; H0148:=0.0; H014^:=0.0; H01410:=0.0 



H01411:=0.0; H01412:=0.0; 


: H01413:=0.0; H014 14 ;=0 . 0; H01415:=0.0; H0141b:=0.0 


H01417;=0.0; H01418;=0.0; 


: H01419:=0.0; H01420; =0 . 0; ILR:=0.0; IMECY:=0.0; 


W:=1.0; 


{mark code) 


MOOOAD;=b.O; 


{max order qty attrition qtrs demand) 


MS LOAD; =99.0; 


{max number safety level qtrs attrition) 


MSLOD:=20.0; 

NRFIDRT:=0.0; 


(max number of safety level qtrs demand) 


OS0:=0.0; 


(non-parametric order stat qtrs) 


PDQ:=8.0; 


{past qtrs demand) 


PPV:=B023D*B011A; 


{proc problem var (mean) ) 


ODH:=0.0; 


{quarters demand histoi*y) 



RF1DRT:=0.0; R I YAYABY : =0 . 0 



RSV;=0. 0; 
RT:=0.0; 


{requisition size variance) 



SCR;=0.01; stoi Rate : =SCR; {storage cost rate} 



SSOH:=0.0; 




II 

o 

o 

o 


{today's date) 


TSDRS:=0.08; 


(time between SDR's in qtrs) 


V015R:=850.00; 


{maik code 1 and 2 order costs) 



V01b:=850.00; 
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V022:»u. i ; 

V0J<):=0.0; 

V041R:=850.00; 

V042R;=1R20. 00; 

V043R:=17Q0.00; 

V044:=8000.00; 



{nun risk) 

{low volue c^nnual dem.Hnd order cost) 
{negotiated procuiement ordei cost) 
{advertised procurement ordei costs) 

{max unpuced order cost) 

(procurement interest rate) 



V101A:=0.07; dlscRate:=V101A; 

V102;=0.J5; (max risk) 

VI 0J4 : = 1 000 . 00 ; (shortage cost) 

VI 08: =0.1; (lepaii time pieference rate) 

V2^5:=1.0; (leorder level constiaint) 

LILT:=0.0; LILY:=0.0; PCR3;=0.0; 01B:=0.0; 02B;=0.0; RMNAST:=0.0; SER:=0.0; 
YDR:=0.0; 

MNOOAD:=1.0; {min order qty attrition qtrs demand) 

APSR:=0.0; ARCI;=0.0; B00:=0.0; BRLC1:=0.0; BRLDCU:=0.0; BRLO:=0.0; 
BRPLO:=0.0; BRO:=0.0; B014A:=0.0; B01<^:=0.0; B019B:=0.0; B021:=0.0; 
B021A:=0.0; ERR: =0.0; HONDO; =0.0; O0CI:=0.0; POC;=0.0; PPVBNDO; =0 . 0 ; 
PZO:=0.0; RCI:=0.0; RLCI:=0.0; RPLCI:=0.0; ROCI:=0.0; VPSR:=0.0; 



prbBrkPt:=0; 
salvRate;=0. 02; 
iatioPLTSTDMU:=0.5; 
infRate:=0. 0; 
mi 1 Essent : =C008C; 

pd82strl:= AAC+ AL-. B0b7A+ B067G+ C028-^ DRLI+ D031C+ D120+ D125N+ ERR1+ F024 + 
H0D1+ MARLI+ PVPI+ RII+ RO+ YR7POC+ Y006A+ Y006B+ EO0IND+ PVUI+ 
FILLER; 



PD82str2:= NumToSt r ing (A023B) NumToString(BRLDC) + NumToString(BOlO) + 
NumToSt r ing (BO 1 lA) + NumToSt ring ( BO 1 2 F) + NumToSt ring ( BO 1 9A) + 
NumToString (B020) + NumToString (B023C) + NumToSt ring(B02 3 D) + 
NumToString(B023F) + NumToString (B023H) + NumToString (BG) + 
NumToSt 1 ing (B055) + NumToSt r i ng ( B055A ) + NumToSt r i ng { B057 ) + 
NumToSt ring(B058)+ NumToSt ring (B058A) ; 

PD82sti3:= NumToSt ri ng ( BOb 1 ) + NumToString (B070 ) + NumToString (B073) + 
NumToSt r ing (B093 ) + NumToSt ring (B280) + NumToStr mg (C008C) + 
NumToSt r ing (DOPTC) + NumToSt ri ng ( DTC) + NumToSt ring (D02BE) + 
NumToString(F009) + NumToSt r i ng ( HQD) + NumToSt ring ( H014 1 ) + 
NumToString(H0142) + NumToString(H0143) + NumToString (HOI 44) + 
NumToSt ring (HO 145) NumToSt ring (HO 14 6) ; 

PD82str4:= NumToSt r ing (HO 147 ) + NumToSt ring (HOI 48 ) -t- NumToString(H01 49) + 

NumToString (H0141 0) + NumToString (HO 14 1 1 ) + NumToString (HOI 412) -» 
NumToSti ing(H01413) + NumToSt ring (HO 14 1 4 ) + NumToSti ing(H01415) •* 
NumToSti ing(H0141b) + NumToSti ing(H014l7) + NumToSt r i ng (HO 1 4 1 8) ^ 
NumToSt r ing ( HO 1 4 1 9 ) + NumToSti ing (H01420) + NumToSt i i ng ( I LR ) + 
NumToSt 1 1 ng ( 1 MECY ) + NumToSt r i ng ( M) ; 

PD82str5:= NumToStr ing (MOQOAD) + NumToSt i ing (MSLOAD) + NumToSt i ing (MS LOD) + 
NumToSti ing (NRF I DRT) + NumToString (OSO) + NumToString ( PDO) + 
NumToString (PPV) + NumToString (ODH) + NumToSt ring(RFl DRT) + 
NumToString (RIYAYABY)+ NumToString (RSV) + NumToSti ing (RT) + 
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NumToString U'CR ) + NumToSt i ing ( SSOH 1 NumToSt i ing (TD 1 + 

NiunToSt 1 ing (TSDRS) + NumToGt ring (VOl 5R) ; 

PD82stib:= NumToSti mg (VOlb) + NumToGti ing (V022) Nun»ToGti mg ( V0J9) + 

NumToSt ring {V04 IR) + NumToSti mg {V042R ) + NumToString ( V043R) 
NumToString (V044) + NumToSt ri ng (VI 0 lA) + NumToSt ring (VI 02 ) + 
NumToString (V1034 ) + NumToGtr ing (V108) + NumToSti ing (V2 95) + 
NumToString (LILT) + NumToString (LILY) + NumToString ( PCR3) 
NumToString (OIB) + NumToString (02B) ; 

PD82str7:= NumToSt r ing { RMNA5T) + NumToString I GER) + NumToSti ing (YDR) + 

NumToString (MNOOAD) NumToSt ring (APSR) + NumToSt i ing (ARCI ) ■► 
NumToSt 1 ing (BOO) + NumToSt ring (BRLCl ) + NumToSt i i ng (BRLDCU) + 
NumToSt ring (BRLO) + NumToSti i ng (BRPLO) + NumToSti ing (BRQ) 

NumToSti ing I BO 14A) + NumToSt ring (B019) + NumToSti ing (B019B) + 
NumToString (B021 ) + NumToGtr mg (B021 A) ; 

PD82str8;= NumToSt ri ng ( ERR) ^ NumToSt ring (MONDO) + NumToSt ri ng (OQC I ) -^ 

NumToSt l ing ( POC) + NumToSt r i ng ( PPVBNDO) -*■ NumToString(PZO) + 
NumToSti ing (RCl ) + NumToSt ri ng ( RLCl ) + NumToString ( RPLCI ) + 
NumToString (ROC 1 ) + NumToString (VPSR) ; 

assign (out f i le, ' pd82in. f i 1 ' ) ; 

rewrite (out file); 

writeln (out fi le, PD82strl , PD82str2, PD82str3, PD82sti4, PD82sti5, PD82strb, 
PD82stl7, PD82str8); 

close ! out file); 

end; 

procedure PD82Edit(vai prbBrkPt : integer; 

vai un i tPi ice , PLT, orderCost , holdFi ac, 

shortCost , salvRate, numYrsOH, ratioPLTSTDMU, 
numYrsERR, stoiRate,obsolRate,discRate, infRate, 
mi lEssent ; real ) ; 

var C028 : string(l); 

A023B,B01 lA,B020,B023C,B023D,B055,B057,B058,BObl ,B073,C008C,D025E, 
MSLOD,SCR,TD,TSDRS,V015R,V022,V101A,V102,V1034,V295: real; 

PD82strl: string(24); 

PD82str2, PD82sti3, PD82str4, PD82str5, PD82strb, PD82str7, 

PD82str8: string (255] ; 
edit Choice; char; 
donerboolean; 
in f 1 le , out file: text ; 

begin 

{retrieve selected default variables from file to edit) 
assign ( in f i le , ' pd82 in . f i 1 ' ) ; 
leset ( inf i le) ; 

read(infile,PD82sti 1, PD82str2, PD82sti3, PD82str4, PD82str5, PD82strb, 
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PD82sti7, PDB2stx8); 
close I inf 1 le) ; 

C028:=copy (PD82sti 1,5,1); 



St 1 Temp 
St i Temp 
St 1 Temp 
St iTemp 
St i Temp 
strTemp 
St iTemp 
StrTemp 
St 1 Temp 
St rTemp 
St 1 Temp 
St rTemp 
St rTemp 
StrTemp 
St rTemp 
St rTemp 
StrTemp 
St rTemp 
St rTemp 
St rTemp 
unit Pi ice; =B055; 



=copy ( PD82st i 2 , 4b , 1 5 j ; BO 1 lA : =St i ingToRe.^ 1 (St rTemp j ; 
“Copy ( PD82st 1 2 , ^ 1 , 1 5 ) ; B020 : =Gt i i ngToReal ( St rTemp) ; 

“Copy (PD82st i 2 , 12 1 , 15) ; B02JD: =St i i ngToReal fSt rTemp) ; 
“Copy ( PD82st i2 , 1 8 1 , 15) ; B055 : =St i ingToRea 1 (St rTemp) ; 
=copy (PD82str2,21 1.15); B057 ; =st r i ngToReal (StrTemp) ; 
=copy(PD82st 12,220, 15) ; B058 :=Sti ingToReal (StrTemp) ; 
“Copy (PD82sti3 , 1 , 15) ; BObl ; =St r i ngToReal (StrTemp) ; 
=copy (PL)82stri, 31 , 15) ; B07 3 :=Stri ngToReal (StrTemp) ; 

“Copy ( PD82st r 3 , 7b , 1 5 ) ; C008C: “St ri ngToReal (StrTemp) ; 

=copy (PD82sti3, 121,15); D025E: =St i i ngToRea 1 (StrTemp) ; 
“Copy ( PD82st i5 , 3 1 , 15) ; MSLOD: =St r i ngToRea 1 (StrTemp) ; 
“Copy ( PD82st i5 , 181,15); SCR :=Stri ngToReal (StrTemp) ; 
“Copy (F’[)82str5,21 1,15); TD;=Str ingToReal ( St i Temp) ; 
“Copy (Pt)82str5, 22b, 15) ; TSDRS : “St r i ngToRea 1 (StrTemp) ; 
“Copy ( PD82st r5 , 24 1 , 1 5 ) ; VO 15R: “St ri ngToRea 1 ( St i Temp) ; 
“Copy (PD82strb , lb , 15) ; V022:=Str ingToReal (St i Temp) ; 

“Copy ( PD82strb , 1 Ob , 1 5 ) ; VI OlA: “St i ingToReal ( StrTemp) ; 
“Copy (PD82strb, 121,15); VI 02 :=Str ingToReal (StrTemp) ; 
“Copy ( PD82st rb , 1 3b , 1 5) ; VI 03 4 ; “St ri ngToReal ( St rTemp) ; 
“Copy ( PD82strb , 16b, 15) ; V295 : “St ri ngToReal (StrTemp) ; 

orrlerCost : =V0 1 5R; shortCost ; “VI 03 4 ; 



holdFrac:“ B057 
PLT:“ BOllA; 
done: “FALSE; 



VI OlA + SCR; milEssent :“C008C; 



1 epeat 
cl rsci ; 

wiitelnC “*• THIS SCREEN ALLOWS EDITING OF DEFAULT NIIN INPUT PARAMETERS ); 

wi lteln; 
wrlteln; 



writeln 


( ■ 


A. 


Prob Break 




• , PrbBrkPt : 8 , ‘ 


M. 


Min Risk : 


• ,V022;8:2) ; 


wr Iteln 


( • 


B. 


Shelf Life 




• ,C028, • 


N. 


Max Risk : 


■ ,V102: 8:2) ; 


writeln 


(• 


C. 


Reqn Size 




*,B073:8;0, ‘ 


0. 


Ord Cost : ' 


,V015R: 8:2) ; 


writeln 


( • 


D. 


Unit Price 




•,B055:8:2, 


P. 


MSLOD : 


■ ,MSL0D;8:2) ; 


wr i t e 1 n 


(* 


E. 


Salv. Rate 




• , salvRate: 8 :2, 


• 


0. Proc Meth ; * , D025E: 8 : 0) ; 


writeln 


(• 


F. 


Procur LT 




•, BOllA: 8: 2, 


R. 


Shoitage : 


‘ ,V1034:8;2) ; 


writeln 


( • 


G. 


Essent i al 




■,C008C:8:2, * 


S. 


R/0 Low : 


• ,B020:8:2) ; 


wi' i t e 1 n 


( • 


H. 


Mfg Set-Up 




■,B058:8:2, 


T. 


R/0 Const r: 


• ,V295:8:2) ; 


writeln 


( * 


1 . 


Obsol Rate 




•,B057:8:2, 


U. 


Gtor Rate : 


• , SCR; 8: 2) ; 


writeln 


(‘ 


J. 


Disc Rate 




•,B0bl:8:2, 


V. 


Time Pref : 


• ,V101A:8:2) ; 


writeln 


(‘ 


K. 


Time SDRS 




*, TSDRS: 8:2, ' 


w. 


Today DT : 


• ,TD:8:0) ; 


writeln 


(• 


L. 


Init Yrs OH 




' , numYrsOH: 8:2,’ 


X. 


PLT STD/MU: 


; * ,ratioPLTSTDMU:8;2) 


writeln 


( ■ 


Y. 


Num Yrs ERR 




* ,numYrsERR:8:2, * 


2 


Inflation 


Rate: ' , infRate: 5 ; 3 ) ; 


writeln; 


















writeln 


( • 




Hit ENTER to 


accept current values 


*); 




write (' 






or lettei of 


field to change; 


•) : 







editChoice:“upcase(readkey) ; 
wi iteln (edjtChoice) ; 



157 



case editChoice of 



•A' 



■ B' 



•C’ 



begin 

wi iteln; 

write ('Entei new Piobability Bieak Point: 
PibBi kpt :=ner_lntegei (0,20); 
end; 



begin 



wi Iteln 




write ( 


'Enter new Shelf 


leadln 


(C028); 


delete 


(PD82sti 1,5, 1) ; 


insert 


(C028,PD82strl,5) 



Life code: 



' ) r 



end; 



begin 

wi 1 1 e 1 n ; 

wiiteln ('** Infonnation Only - Model assumes lequisition si 
HltToCont ; 



end; 

' [) ' : beg 1 n 

wi Iteln; 

write ('Enter new Unit Price: ’); 

B055:=Get_Real ( 0 . 0 , 99999<i . 0 ) ; 
delete (PD82str2, 181 , 15) ; 
insert (NumToStr ing (B055) , PD82str2, 181 ) ; 
unltPrlce: =B055; 
end; 

' E ‘ : beg i n 

wi Iteln; 

wiite ('Entei new Salvage Rate, fraction of unit cost: '); 
salvRate: =Get_Real (0 . 0 , 1 , 0) ; 
end; 

' F’ : begin 

wi iteln; 

write ('Enter new Procurement Leadtime Forecast: '); 

BO llA:=Get_Real (0.0,40.0) ; 

B023C:=B011A*B023D; 

delete (PD82sti2,4b, 15) ; 

insert ( NumToStr ing (BOl lA) , PD82sti2,4b) ; 

delete (PD82sti2, 10b, 15) ; 

insert (NumToString (B02JC) , PD82str2, 106) ; 

PLT:=B011A; 

end; 

*G' : begin 

writeln; 

write ('Enter new Average Item Essentiality: '); 
C008C:=Get_Real (0.0,999999.0) ; 
mi 1 Essent : =C008C; 
delete (PD82strJ,7b, 15) ; 
insert (NumToSti ing(C008C) , PD82st r3 , 76 ) ; 
end; 

' H ' : beg i n 



ze of one . * ‘ ' ) ; 
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wr 1 1 e 1 n ; 



wz'xte {'Entei new Manu f ..ict ui ei Set-up Cost: 

B058:=Get_Real ( 0 . 0 , . 0 ) ; 

delete (PtJB2sti2,22b, 15) ; 
insert (NumToSti mg (B058) , PDy2sti 2 ,22b) ; 
end; 

I' : begin 

wi 1 tel n; 

wiite <• Entei new Obsolescence Rate: *); 

B057:=Get_Real ( 0 . 0 , 9^^9999 . 0) ; 
obsolRate: =B057; 
delete ( PDb2st r2 , 2 1 1 , 15 ) ; 
insei t (NumToSt ring (B057 ) , PD82st r2, 21 1 ) ; 
end; 

J * ; beg i n 

wi i teln; 

A r- f* Entei new Discount Rate: *); 

B :=Get_Real (0.0,99qq99.0) ; 
delete ( PD82sti 3 , 1 , 15) ; 
insert (NuxnToGt ri ng (BObl ) , PD82str3 , 1 ) ; 
end; 

K ' : beg i n 

wr 1 1 e 1 n ; 

write ('Enter new Time Between SDRs: '); 

TSDRS:=Get_Real (0.0,999999.0) ; 
delete (PD82str5,22b, 15) ; 
insert (NumToStr ing (TSDRS) , PD82str5 , 22b) ; 
end; 

L ' : beg i n 

wi iteln; 

write ('Entei numbei of years demand of initial inventoi-y 
numYrsOH:=Get_Real (0.0,200.0); 
end; 

M ' : beg i n 

wr 1 1 e 1 n ; 

write ('Enter new Minimum Risk: *); 

V022:=Get_Real (0.0, 1.0); 
delete (PD82str6, lb, 15) ; 
insert (NumToSt ring (V022) , PD82st rb , 16) ; 
end; 

N ' : beg i n 

wi iteln; 

write ('Entei new Maximum Risk: '); 

V102;=Get_Real (0. 0, 1.0) ; 
delete (PD82strb, 121 , 15) ; 
insert (NumToString (V102) , PD82strb , 121 } ; 
end; 

0 ' : beg 1 n 

wr i t e 1 n ; 

write ('Enter new Mark I/II Order Cost; '); 
V015R:=Get_Real (0.0,999999.0) ; 
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ordeiCost : =V015R; 



delete f PD82str5 , 24 1 , 15 ) ; 
insert (NumToSt ring (VO 1 5R) , PD82st i 5 .241); 
end; 

' P ' : beg i n 

wi iteln; 

write f'Entei new Max Numbei of Ouaiters Safety Level Demand: 'i; 
MSLQD:=Get_Real ( 0 . 0 . . 0] ; 

delete / PD82str5 , 3 1 . 15 ) ; 
insei t (NumToSt i ing ( MSLC'D) . PD82st r5 ,31); 
end; 

' Q ' : beg i n 

wi iteln; 

wiite ('Entei new Procuiement Method: '); 

D025E:=Get_Real ( 0 . 0 , . 0) ; 
delete ( PD82str3 . 121 , 15) ; 
insert ( NumToSt r i ng (D025E) , PD82str3 . 121 ) ; 
end; 

•R' : begin 

wri teln; 

wiite ('Entei new Procurement Shortage Cost: '). 

V1034:=Get_Real (0.0,999999.0); 
shoi tCost : =V1 034 ; 
delete (PD82strb. 13b, 15) ; 
insert ( NumToSt i mg (VI 034 ) . PD82strb, 13b) ; 
end; 

'S' : beg i n 

wr 1 1 e 1 n ; 

write ('Enter new System Reordei Level Low Limit Oty: '); 
B020:=Get_Real (0.0,999999.0) ; 
delete ( PD82st i2 , 91 , 15 ) ; 
insert ( NumToSt r ing (B020) , PD82st r2, 1 ) ; 
end; 

' T ' : beg i n 

wr iteln ; 

write ('Enter new Reordei Level Constraint Rate: '); 

V295: =Get_Real (0.0,999999.0); 
delete (PD82strb, Ibb, 15) ; 
insert (NumToString (V295) , PD82str6, Ibb) ; 
end; 

' U ' ; beg i n 

wr i t e 1 n ; 

write ('Entei new Storage Cost Rate: '); 

SCR: =Get_Real (0.0,99999.0) ; 
storRate;=SCR; 
delete ( PD82st r5 , 1 8 1 , 1 5 ) ; 
insei t ( NumToSt 1 ing (SCR) , PD82str5 ,181); 
end; 

'V ; beg i n 

wri teln; 

write ('Entei new Time Preference Rate: '); 
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V101A;=Get_Revil {0.0,Q<'V^q<i. 

dascRv^te: =V1 01 A; 
delete ( PD82st rb , 1 Ob , 1 5 ) ; 
insert (NumToSti ing (VI OlA) , PD82strb , 10b) . 
end; 

' W* ; beg i n 

wr 1 1 e 1 n ; 

write ('Entei Today' 's Date (YYJJJ) : '); 

TD:=Get_Real { 0 . 0 , . 0 ) ; 

delete ( PD82st i 5 , 2 1 1 , 1 5) ; 
insei t (NumToSti mg (TD) , PD82str5 ,211); 
end; 

' X ‘ ; beg 1 n 

wi 1 1 e 1 n ; 

write ('Entei PLT sigma to mu ratio: '); 
ratioPLTSTDMU:=Get_Real (0.0,10.0); 
end; 

' Y ' : beg i n 

writeln; 

write ('Enter number of years of economic retention: '); 
numYrsERR : =Get_Real (0. 0,numYrsOH) ; 
end; 

'Z' : begin 

writeln; 

wiite ('Enter current inflation late: '); 

i n f Rate : =Cet_Rea 1 ( 0 . 0 , 1 . 0) ; 
end; 



chr(13): done:=TRUE 

end; 

until done=TRUE; 
holdFrac:=B057 + VIOIA + SCR; 
assign (out f i le, ‘ pd82i n . f i 1 ' ) ; 
rewi'ite (outfile); 

writeln (out fi le, p[)82strl , PD82str2, PD82str3, Pt)82sti4, PD82sti5, PD82strb, 
PD82str7, PD82str8); 
close (outfile); 
clrscr; 
end; 



procedure InitPD86Fi le; 



vai infile, out f i le : text ; 



PD82strl : 


string (24 ) ; 


PD82str2, 


PD82sti3, PD82str4 


PD82str8: 


string (255 ] ; 


PD8bstrl ; 


sti ing (241; 


Pt)8bsti2, 


PD8bstr3, PD8bsti4 



PD82str5, PD82strb, PD82sti7, 



PD8bstr5, PDBbstrb, PD8bstr7, 
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p[)8&stiH: string(255); 
P[i8bstr‘^: string[bO); 



C003,C001W:sti ing(2] ; 

C001B,LASTIN,C001T1 ,C001T2,RPRIN,ONEWAY:chai ; 

FILLER: string [5] ; 

[)04bD;string('^] ; {NUN} 

BO 1 1 A , B07 3 , FMLTCNT , FMLYEXP , FMLYGRS , FMLYMNM , FMLYSYSORD , FMLYSYSRO , 

FMLYOPAST, FMLYPLT, FMLYRPRSRV , FMLYRTAT , FMLYRQS I Z , FSQPPR 1 , FSOPPR2 , FS0PPR3 , 
FG0PPR4 , FSQPPR5 , FSQPPRb , FS0PPR7 , FSQPPRB , FSQPPR^ , FSQPPR 1 0 , FSQPPR 1 1 , 

FSOPPR 1 2 , FSQPPR 1 3 , FGQPPR 1 4 , FSQPPR 1 5 , FSOPPR 1 b , FSQPPR 1 7 , FSQPPR 1 8 , FSQPPR 1 8 , 
FSOPPR20 , FS0PPR2 1 , FSQPPR22 , FSQPPR23 , FS0PPR24 , FSQPPR25 , FSOPPR2b , 

FSQPPR27, FSOPPR2y , FSQPPR28, FS0PPR30, FS0PPR31 , FSOPPR32 , FWO, B023D, HRZNLNGTH , 
MEANNONZR,B0blB,B019A,B019B,B019C,B021 , BOl 9 , B02 lA , OPAST, PLTPPR , BO 1 2F , PPV, 
PPVO , BRLDCU , F009 , BO 1 2E, RSV , SQPPR 1 , SQPPR2 , SQPPR3 , SQPPR4 , SOPPR5 , SQPPRb , 
SOPPR7 , SOPPRB , S0PPR9 , SQPPR 1 0 , SQPPR 1 1 , SQPPR 1 2 , SQPPR 1 3 , SQPPR 1 4 , SQPPR 1 5 , 

SOPPR 1 b , SOPPR 17 , SOPPR 1 8 , SOPPR 1 9 , SQPPR20 , SOPPR2 1 , SQPPR22 , SQPPR23 , SOPPR24 , 
SOPPR25 , SOPPR2b , SOPPR27 , SOPPR28 , SOPPR29 , SOPPR30 , SOPPR3 1 , SOPPR32 , 

SYSBO , SYSRCR , A023B , TR PR , TSDRS , BOSS , FO07 , ZOBS , EXPDEFRS , EXPDEFRSR , 

EXPDEFSDR, FEXPDEFRS , FEXPDEFSDR , PROJADDBO, PROJADDVRBL, PROJSMAVRBL, 
PROJSSADDBO , PROJSSADI) , PROJSSSMA , RQSHRTRND , RQSHRTYR , VLBUYS , VRBLHRSR , 
VRBLHRSQ , UN I TSHRTP , UNI TSSHRTR : i ea 1 ; 



begi n 

assign ( inf i le, *pd82out . f il ' ) ; 
reset (infile); 

read( inf i le, PD82strl , PD82str2, PD82str3, PD82str4, PDH2strS, PD82strb, 
PD82str7, P[)82str8); 
close ( inf i le) ; 

C003:=‘1H'; 

COOIB:^’ 

LASTIN:=‘ Y* ; 

D04bD: = * 000000000* ; {NUN) 

C001T1:=‘ ■ ; 

C001T2:=* ■ ; 

C001W:=* 

RPR1N:=‘N' ; 

ONEWAY :=‘N‘; 

FILLER:^' 

strTemp;=copy (PD82str2,4b, IS) ; BOl lA : =St i i ngToReal (StrTemp) ; 

St rTemp: =copy ( PD82st r3 ,3 1 , IS) ; B073 : =Stri ngToReal (StrTemp) ; 

FMLTCNT : =0 . 0 ; FMLY EXP : = 0 . 0 ; FMLYGRS : = 0 . 0 ; FMLYMNM : = 0 . 0 ; FMLYSYSORD : =0.0; 
FMLYSYSRO : =0 . 0 ; FMLYOPAST: =0.0; FMLYPLT : =0 . 0 ; FMLYRPRSRV : =0 . 0 ; FMLYRTAT : =0 . 0 ; 
FMLYRQS I Z : =0 . 0 ; FSQPPR 1 : =0 . 0 ; FSQPPR2 ; =0 . 0 ; FSQPPR3 : =0 . 0 ; FSOPPR4 : =0 . 0 ; 
FS0PPR5 : =0 . 0 ; FSQPPRb : =0 . 0 ; FSQPPR7 : =0 . 0 ; FSOPPR8 : =0.0; FS0PPR9 : =0 . 0 ; 

FSOPPR 1 0 : =0 . 0 ; FSQPPR 1 1 : =0 . 0 ; FSQPPR 1 2 ; =0 . 0 ; FSQPPR 1 3 : =0 . 0 ; FSQPPR 1 4 : =0 . 0 ; 
FSQPPR IS ; =0 . 0 ; FSQPPRl b ; =0 . 0 ; FSQPPR17 : =0 . 0 ; FSQPPR 1 8 : =0 . 0; FSQPPR 19 : =0 . 0 ; 
FSQPPR20 : =0 . 0 ; FSQPPR2 1 ; =0 . 0 ; FSQPPR22 : =0 . 0 ; FSQPPR23 ; = 0 . 0; FSQPPR24 ; =0.0; 
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FS0PPR25 : =0 . 0 ; FSOPPR2 b : =0 . U ; FS0PPR27 : =0 . 0 ; FS0PPR2 B : =0 . U ; FS0PPR2 ^ 
F30PPR30:=0.0;FGOPPR31 : =0 . 0; FSOPPR32 : =0 . 0; FWO: =0 . 0 ; 

St i Temp: =copy ( PD82st i 2 , 12 1 , 1 5) ; B0231) : =3t ri ngToReoi 1 (St iTemp) ; 

HRZNLNGTH : »0 . 0 ; MEANTJONZR ;=0.0;B0blB:=0.0; 

stiTemp:=copy (P[)82sti2,7b , 15) ; B01‘)A:=StMngToRe.Hl (StiTemp) ; 

B01<^B:=0. 0;B019C:=0. 0; 

St 1 Temp: =copy ( p[)82st i 7 , 22b . 15) ; B02 1 : =Gt i i ngToRea 1 ( Gt i Temp) ; 

St iTemp: =copy ( PD82st i 7 , 1 <)b, 15) ; BOl : =St r ingToReal (Gt iTemp) ; 

B02 1 A ; =0 . 0 ; OPAGT: =0.0; PLTPPR : =0 . 0 ; BO 1 2F : =0 . 0 ; 

St rTemp: =copy { PD82st i5 , 01 , 15) ; ppV: =Gt i i ngToReal ( Gt iTemp) ; 

PPVO:=0.0; 

St i Temp; =copy ( PD82st i 7 , 12 1 , 15 ) ; BRLDCU: =St i i ngToRea 1 ( Gt iTetnp) ; 
F008;=0.0;B012E:=0.0; 

RSV:=0.0; 

SOPPRl : =0.0; S0PPR2 : =0. 0; 

S0PPR3 : =0 . 0 ; S0PPR4 : =0 . 0; SQPPRS : =0 . 0 ; SQPPRb : =0 . 0 ; S0PPR7 : =0 . 0 ; SQPPRB : =0 . 0 ; 
SOPPRO : =0 . 0 ; SOPPRl 0 ; =0 . 0 ; SOPPRl 1 : =0 . 0 ; GOFPR 1 2 : =0 . 0 ; SOPPR 1 3 : =0 . 0; 

SOPPR 1 4 : =0 . 0 ; SOPPR 1 5 : =0 . 0 ; SOPPR 1 b : =0 . 0 ; SOPPR 1 7 : =0 . 0 ; SOPPR 1 8 : =0 . 0 ; 

SOPPR 1 0 : =0 . 0; S0PPR20 : =0.0; S0PPR21 : =0 . 0 ; S0PPR22 : =0 . 0 ; SOPPR23 :=0.0; 

50PPR24 :=0. 0; SOPPR25 : =0 . 0 ; S0PPR2b : =0 . 0 ; S0PPR27 : =0 . 0 ; S0PPR28 : =0 . 0 ; 

GOPPR20 : =0 . 0; S0PPR3 0 : =0 . 0; SOPPR3 1 : =0 . 0 ; S0PPR32 : =0 . 0 ; 

SYSBO : =0 . 0 ; SYSRCR :=0.0; 

StiTemp: =copy( PD82sti2, 1,15); A023B: =St i ingToRea 1 (St rTemp) ; 

stiTemp:=copy (PD82str5,22b, 15) ; TRPR:=GtringToReal (StrTemp) ; 

St rTemp: =copy ( PD02sti 5 ,22b , 15) ; TSDRS; =Sti ingToReal (StiTemp) ; 

StiTemp: =copy ( PD02sti 2 , 101,15); B055 : =St ri ngToReal ( StrTemp) ; 
F007;=0.0;ZOBS:=0.0; 

EXPDEFRS: =0 . 0; EXPDEFRSR : =0 . 0 ; EXPDEFSDR; =0.0; FEXPDEFRS: =0 .0; FEXPDEFSDR: =0 . 0 
PROJADDBO: =0.0; PROJADOVRBL: =0 . 0; PROJSMAVRBL : =0 .0; PROJSSADDBO: =0 . 0; 
PROJSSADD: =0.0; PROJSSSMA : =0 . 0 ; ROSHRTRND: =0.0; ROSHRTYR : =0 . 0 ; VLBUYS : =0 . 0 ; 
VRBLHR SR : = 0 . 0 ; VRBLHRSO : =0 . 0 ; UN 1 TSHRTP : = 0 . 0 ; UN I TGSHRTR : =0 . 0 ; 

(create PD0b input file) 

PDBbSti 1 ;=C003-^ C001B+ LASTIN+ D04bD+ COOITU C001T2+ C001W+ RPRIN+ ONEWAY 
FILLER; 

PD8bst 1 2 : =NmnToSt i ing ( BOl lA) +NmnToStr ing ( B073) +NumToStr ing ( FMLTCNT) + 

NuuiToSti ing( FMLYEXP) +NmnToSt i i ng ( FMLYGRS) +NumToSt r i ng ( FMLYMNM) + 
NumToS t r i ng | FMLYS YSORD ) +NmnToSt i i ng ( FMLYS YSRO ) + 
NuuiToStringlFMLYOPAST) +NmnToString ( FMLYPLT) + 

NumToSt ring ( FMLYRPRSRV) +NumToString ( FMLYRTAT) + 
NuirToString|FMLYROSIZ)+NmnToString( FSOPPRl ) + 

NumToSt r ing ( FS0PPR2) +NuinToStr ing ( FS0PPR3) +NumToSt i ing ( FS0PPR4 ) ; 
PD8bstr3 : =NuinToString ( FS0PPR5) +NumToString ( FSOPPRb) +NuinToString( FSOPPR7) + 
NumToSt 1 1 ng ( FS0PPR8 ) +NumToSt i i ng ( FS0PPR9 ) +NumToSt i i ng ( FSOPPR 1 0 ) 
NumToSt ring! F30PPR 1 1 ) +NumToSt r i ng ( FSOPPR 12) + 

NumToSt 1 1 ng ( FSOPPR 1 3 ) +NumToSt r i ng ( FSOPPR 14) + 

NumToSt ring! FSOPPR 1 5 ) +NumToSt r i ng ( FSOPPR 1 b ) + 

NumToSt r i ng ( FSOPPR 1 7 ) +NumToSt i i ng ( FSOPPR 18) + 

NumToSt 1 1 ng ( FSOPPR 1 R ) +NumToSt ring! FS0PPR2 0 ) + 

NumToSt 1 1 ng ( FS0PPR2 1 ) ; 
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PDSbst 1-4 : =NumToSt r 1 ng ( FSQPPR22 ) +NumToSt ri ng ( FSQPPR2 J ) + 

NumToSt ring! FSOPPR24 ) -^NumToSt i mg ( FS0PPR25 ) + 

NumToGti mg (FS0PPR2b) +NumToGtring (FSQPPR27) + 

NumToot 1 1 ng f FS0PPR2H ) +NumToGt n ng ( FG0PPR2'> ) + 

NumToGt 1 mg ( FSQPPR3 0 ) -t-NumToGt i i ng ( FG0PPR3 1 ) + 

NumToGt 1 mg ( FGQPPR32 } +NumToSt r mg ( FWO) + 

NumToGt 1 1 ng { B02 3t)} +NumToSt r mg ( HRZNLNGTH) + 

NumToSt 1 mg (MEANNONZR) +NumToStrmg (BOblB) +NumToStrmg (BOl 9A) ; 

PDSbst x'5 : =NumToSt i mg ( BO 1 9B) +NumToSt r i ng (BO 1 9C) +NumToSt rmg(B021) + 

NumToSt ring (BOl 9) +NumToSt ring (B021A) +NumToSt ring (OPAST) * 

NumToGt i mg (PLTPPR) +NumToGt 1 mg ( B012F) +N>imToGt i mg ( PPV) + 

NumToSt r mg ( PPVO) +NumToSt r mg ( BRLDCU) +NumToSt 1 1 ng ( FO ) •► 

NumToGt 1 mg (B012E) +NumToSt ring (RSV) +NumToGtr ing ( SOPPR 1 ) 

NumToSt r mg ( S0PPR2 ) +NumToSt r mg ( S0PPR3 ) ; 

PDSbst 1 b : =NumToSt i mg ( GQPPR4 ) +NumToGt r mg ( SQPPR5 ) +NumToSt 1 1 ng (SQPPRb ) + 
NumToSt 1 mg ( S0PPR7 ) +NuinToSt ring (SQPPRS ) +NumToSt i i ng (SQPPR^) + 
NumToSti mg (SOPPR10)+NumToSt ring (SOPPR 11 ) +NumToSt ring (SOPPR 12) + 
NumToSt 1 mg (SOPPR 13) +NumToSt ring (SOPPR 14 } +NumToStrmg (S0PPR15) + 
NumToSt ring (SOPPRl b) +NumToSt ri ng ( SOPPR 1 7 ) +NumToSt r mg ( SOPPR 1 8 ) + 
NumToSt r i ng ( SOPPR 1 9 ) +NumToSt i i ng ( S0PPR2 0 ) ; 

PD8 6st 1 7 : =NumToSt ri ng ( S0PPR2 1 ) +NumToSt i i ng { SOPPR22 ) + 

NumToString (SOPPR23) +NumToSti mg (SOPPR24 ) +NumToString (S0PPR25) + 
NumToSt ring! S0PPR2 6 ) +NumToSt r i ng ( S0PPR27 ) +NumToSt r i ng { SOPPR28 ) t- 
NumToString (S0PPR2 9) +NumToString (SOPPR3 0) +NumToGt ring (S0PPR3 1 ) -*■ 
NumToSt 1 mg (SOPPR32) +NumToGt ring (SYSBO) +NumToSt r mg ( GYSRCR) + 
NumToString (A023B) +NumToString (TRPR) +NumToGtring{TSDRS) ; 

PDSbst rS : =NumToSt ri ng (B055) +NumToSt r i ng ( F0 07 ) + 

NumToString (ZOBS) +NumToSt i i ng ( EXPDEFRS) +NumToSt ring ( EXPDEFRSR) + 
NumToGt r 1 ng ( EXPDEFSDR ) +NumToSt r mg ( FEXPDEFRS ) + 

NumToSt ri ng ( FEXPDEFSDR) +NumToSt ri ng ( PROJADDBO) + 

NumToString (PROJADDVRBL) +NumToString (PROJSMAVRBL) + 

NumToString ( PROJSSADDBO) -»-NumToSt ri ng ( PROJSSADD) + 

NumToSt r 1 ng ( PROJSSSMA) +NumToSt r i ng { ROSHRTRND) + 

NumToSt ring! ROSHRTYR ) +NumToSt r i ng { VLBUYS ) ; 

PD8bstr9 : +NumToString (VRBLHRSR) +NumToString (VRBLHRSO) + 

NumToString (UNITSHRTP) +NumToSti ing (UNITSSHRTR) ; 



ctssign (out f i le, *pd8bin. f i 1 ' ) ; 
rewrite (outfile); 

writeln(outfi le, PDSbSti 1 , PD8bstr2, PD8bsti3, PD8bstr4, PD8bsti5, PDSbstib, 
PD8bsti7, PD8bstr8, PD8bstr9); 
close (out file); 
end; 



End. {unit pdunit} 
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unit PQueue 



intei foice 

const MAXPOUEUESI2E=300; 

type datL^Recoid » recoid 

Oty : integei ; 

Week : i nteger ; 
end; 

He.^pAi i.HyType = .=ii i c»y [ 1 . .MAXPQUEUE5IZE1 ut dat.necoid; 

Pi 1 oi ityOueueType = record 
heiipSi ze: integei ; 
hei^r-Ai 1 ay: HeapAi i ayType 
end; 

(must be called befoie the priority queue is first used} 

(also resets the priority queue so it is empty) 

procedure Init lal izePi loi ityOueue (vai pQueue: Prior ItyOueueType) ; 

(erioi if called when it already has MAXPQUEUESIZE elements) 

procedure Insert Pi loi ityOueue (vai pOueue: Pi loi ityOueueType; data;datarecord) 

(returns the element with the largest value) 

(erioi if no elements in the prioiity queue) 
function CuiiWeek (pOueue: Pi ioi ityOueueType) : integei ; 
function CuiiOty (pOueue: Pi loi ityOueueType) : integei ; 

(removes and returns the element with the largest value) 

(erroi i f no elements in the priority queue) 

function ExtractOty (var pOueue : Prioi ityOueueType) ; integer ; 

function ExtractWeek (var pOueue: Prioi ityOueueType) ; integei ; 

function Empty Pr iorityOueue (pOueue : Pr lori tyOueueType) :boolean; 

function SizePi iorityOueue (pOueue; PriorityOueueType) : integer; 

implementation 

(error if the binai-y trees that are children of the index do not satisfy the 
heap property) 

procedure Heapi fy (var pOueue: PriorityOueueType; i: integer); 

var left , right , smal lest : integer; 
tempVar :dataRecord; 

begin 

with pOueue do begin 



165 



1 e f t : =2 * 1 ; 
right : = (2 * 1 1 -*• 1 ; 
sm^Hl 1 est : = 1 ; 

if (left •= then begin 

if (heapAiray [left}. Week • heapAi i\=iy { i ) . Week ) then begin 
smal lest ;=left 

end 

end; 

if (right* sheapSize) then begin 

if (heapAiray [right ] .Week * heapAr ray [ smallest ]. Week) then begin 
smal lest : =i ight 

end 

end; 

if smallest • -i then begin 
tempVar ; =heapAri ay | i ] ; 
heapAi 1 ay [ i ] ; =heapAri ay [ smal lest ] ; 
heapAi ray [ smal lest ] : =tempVar; 

Heapify (pQueue, smal lest ) 

end 

end [with] 
end; {procedure] 

(lemoves and returns the element with the largest value] 

(eiroi if no elements in the priority queue) 

function HeapExtractWeek (var pOueue : Priori tyQueueType) : integer; 
begin 

with pOueue do begin 

HeapExt i actWeek : =heapArray [ 1 ] .Week; 
heapAri ay [ 1 ] :=heapAi ray (heapSize) ; 
heaps 1 ze : =heapSi ze-1 ; 

Heapify (pQueue,!) 
end (with) 
end; (proceduie) 

{removes and leturns the element with the largest value) 

{error if no elements in the priority queue) 

function HeapExt ractOty (var pOueue: Pi i or it yOueueType) : integer ; 
begin 

with pOueue do begin 

HeapExt i actOty : =heapAiray [ 1 ] .Qty ; 
heapArray [ 1 ) :=heapArray [heapSize] ; 
heapSi ze: =heapSi ze-1 ; 

Heapify (pOueue,!) 
end (with) 
end; (procedure) 



{erioi if called when it alieady has MAXPOUEUESIZE elements] 
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proceduie H^aplnsei t {vai pOueue : Pi ioi i tyOueueType; doitcirdatarecoid) ; 



vai index, pen ent : integer ; 
done:boolean; 

begin 

with pOueue do begin 
done: = f.s Ise; 
heaps 1 ze r =heapSi ze-^ 1 ; 
index := heaps i ze; 
paient :=index div 2; 
if paient =0 then begin 
done:=TRUE 

end else if (heapAi ray (par ent ) .Week '= data. Week) then begin 
done:=TRUE 

end; 

while (index - 1) and (not done) do begin 
heapArray ( index) : =heapAri ay [parent ) ; 
index: =parent ; 
parent : =index div 2; 
if paient=0 then begin 
done : =TRUE 

end else if (heapAi ray [paient ] .Week «= data. Week) then begin 
done:=TRUE 

end 

end; (while) 
heapArray ( i ndex] : =data 
end (with) 
end; (procedure) 



procedure Init ial i zePr lori tyOueue (var pOueue: Priori tyQueueType) ; 

vai index: integer; 

begin 

pQueue . heaps i ze : = 0 
end; (procedure) 



procedure InsertPrioi i tyOueue (var pOueue: Priori tyOueueType; data:dataRecord) 
begin 

Heapinsert (pOueue, data) 
end; (procedure) 



function CunWeek (pOueue; PriorityOueueType) : integer; 



begin 

Cun Week: =pOueue . heapArray ( 1 ) .Week; 
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end; {function} 



function CuirQty (pQueue: Pi lorityQueueType) ; integer ; 
begin 

Cui 1 Qty : =pOueue . heapAiray [ 1 ) .Qty; 
end; {function} 



function Ext 1 act Qty (vai pQueue: Pi i on tyQueueType} : integer ; 
begin 

Ext 1 act Qty : =HeapExt ractQty (pQueue) 
end; {function} 

function ExtiactWeek (vai pQueue: Pi ioiityQueueType) ; integei ; 
begin 

ExtiactWeek: =HeapExti actWeek (pQueue) 
end; {function} 



function EmptyPiioi 1 tyQueue (pQueue: Pi loii tyQueueType) :boolean; 
begin 

EmptyPrioi i tyQueue : =pQueue . heapSize =0 
end; {function} 



funct ion Size Pi ion tyQueue (pQueue: Pi ion tyQueueType) : integer; 
begin 

SizePr 1 or i tyQueue : =pQueue. heaps ize 
end; {function} 

end. {unit PQueue} 
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Total Cost Curve Graph # 13 
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TCA Cost Breakout Graph # 19 
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Retention Levels Graph # 29 
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